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EDTSIOMOD = 1/0 fo: VAX/VMS 16-Sep-1984 00:35:3 VAX=11 Bliss-32 V4.0-74 Page 1) EDT! 
19-808- 1382 90:53:79 SIEKSUMGHASTERSCEDT SRCSIOMOD.B32;1 . (1) v04 

3 1 9) ZTITLE ‘EDTSIOMOD = 1/0 for VAX/VMS' 3 | 
3 § § MODULE EDTSIOMOD ( ' 1/0 for VAX/VMS ee 
3 Z st poent = 'v04-000' ! FILE: IOMOD.B32 EDIT: REM2102 - 4 
3 = g 4 
; 5 096 ! BEGIN : | 
: ? 007 : leaueeueenteeenentneennenennnneereerenteetertentnrenennnntnnenentnnenententns : ( 
; '® * $ | 
9 0008 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * $ | 
; 10 010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * s 
; V O01. : ;* ALL RIGHTS RESERVED. * 3 
3 } ; 
3 ig ig 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * zg | 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | oe 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * g | 
; 16 Bote 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : ot 
; 17 001 1 !® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * » 
; 18 sd ! * TRANSFERRED. * ; 
3 '® * 3 
$ 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * zg 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
: ; 4 ¢ : ne CORPORATION. . : 
> 26 Bose 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ae 
: $2 one : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : : 
> 2? 0027 1 is * ; 
4 $8 0099 : ‘liam eh itil iaeiaialiainiaiataai P+ ‘ 
: 30 0030 1 : 
; 1 0031 1 !++ ; ~ 
: § it) : } FACILITY: EDT -- The DEC Standard Editor oj 
Pa 0034 1 | ABSTRACT: : | 
3 $2 0035 1! : ; 3 
3 6 0036 1! This module contains all the 1/0 interface code for VAX/VMS . 3 
; «ST 0037 1! systems. $ 
; 3 0038 1! EF 
: 9 0039 1 ! ENVIRONMENT: VAX/VMS only 3 
:; 40 0040 1! $ 
: 41 0041 1 ! AUTHOR: Bob Kushlis, CREATION DATE: 28-JUL-1979 ; oa 
3 4 B0e¢ 1! s 
: 4 043 1 ! MODIFIED BY: 3 
: | 644 Ree 1! 
; «645 45 1! Dan Szymanski. 04-DEC-80, 02 oa ‘ 
; 46 goes 1! ABSM_MXV added in EDTSSOPN_OFIDEF so that the output file if created with 
: rtf Bne : a@ maximized version number. 
> (49 $49 1! Dan Szymanski. 16-DEC-80, 03 ? 
; 3 BR30 : railing : removed during recursive translation of SYSSINPUT in EDTSS$TI_OPN . 
; 25 0082 1! John Sauter, 19-Dec-1980, 04 - 
3 ¢7 0084 : : Added calls to trace package under conditional compilation. 
: 3 bee 1 $-003 ~ Regular ized the headers. JBS 17-Feb-1981 
s 3 2026 1 ! 2-006 - Make PIC pet the event flag numbers dynamicly, carry protection to 
; of 0057 1! output files from the first input file, and manipulate storage using 


vee-dt0 Se ee ee het 30-1 58¢ 93: 33: i3 bt SkSVNSMA AST ER-CEDI OSRCSIOMOD. B32;1 — as 
JB 


LIBSGET_VM and LIBSFREE_VM. S 17-Feb-1981 
2-007 - ne anew entry point te “close ae? work g {ile and removed some globals 
made unn ite py, it 18-Feb-19 
5-008 - Make core FATAL_IOERR ssebal, to avoid calls to SY Exit. JBS 19-Feb-1981 
9 = Ad ¢ EST [Sse 10F I~ ated -f move IO_FNF and make IO0_STS n 


ob - e S$ 19- 
ab module name. 58S 06-Mar-1981 
Fix remaining 10 entry points, 4 30-Mar-1981 

we don’ : already have them. JBS 02-Apr-1981 
Use the ASSERT macro. vite 1-Jun-1981 
Put the work file on veSecRATCH. and use EDTWORK as a logical name 
for it. JBS 01-Jun-1981 

- Fix a typo — caused oo, ~ cover be marked dirty. JBS 04-Jun-1981 
- In response to a request from rgup. make all terminals $Q10s be 

$Q10Ws, for compat ered’ | mB Ay vn terminal driver, which will 


not always use buffered 


/0. Maybe Later we can find time to smarten up 
the code. JBS 06-Jun- 
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2-017 - arronge te to meat the event flags before entering change mode, if necessary. 


| 
2-018 - Fix up the protection. The work file needs only system delete, owner read, 
ye tse and ade?) gta gut tput files have the same protection as the primary 
npu e. - 
Use the new geal, codes. jes 05-Aug- — 
Add a missing cal cal fo. ie “t to gic up a prompt. JBS 06-Aug-1981 
EAD, which was clobbering TT_CHAN. JBS 07-Aug-1981 
Use EDTSSALO_ HEAP wy Fe 88D EA WEE auneteed of 
LIBSGET_VM and LIBSFREE_VM. eee O aug: 
- Correct a bug in reading trace es BS Faeroe. 
© 
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3-03 - When reading a trace file, don't interact with the terminal. This wili allow 
EDT eternal in a sated job to read trace files. JBS 20-Aug-1981 
2-025 - If the sore nal type is unknown, but it is an ANSI-mode scope terminal, assume 
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89 0089 it is a is is needed because the terminal type distin uishes the 
90 0090 vT100 Ay tne vT101, vT102, vT125, etc which are compatible with it. 

91 0091 JBS 16-Nov-1981 

9 009 2-026 - Put a Segt . soTssy! _OPN so it is a noop if called twice. This is needed because 
9 009 in tracing EDT it is called from startup as well as init. JBS Lote haa 
94 0094 -027 - Set Cofeul§ eerarons width to system's terminal width. SMB -Dec-198 

95 0095 -028 - make file i/o rout ines as a status to caller. STS 06-Jan-1982 

96 0096 -029 = Run through PRETT JBS 12-Jan-1 

97 0097 -030 - Pass error datesastion from opn_ifi back fo ‘iie"9 STS {Zajen1962 

98 0098 -031 - Pass error info from opn., oft. ack to fileio. STS 13-Jan-1 

i) ) 0099 “R56 - Pass error info from read and write routines back. STS 77a 1982 

100 0100 - - Pass error info from delete journal file. sts 18-Jan-1982 

191 191 -034 - Make sure NAM$B_RSL is non-zero. STS 19-Ja 

102 1 ¢ -035 = Remove an extra dot in RHB handling. JBS 21-Jan-1982 

103 010 -0 § - Add check for A th ypen opening 2 ond, esting. STS 22-Jan-1982 

104 0104 -037 = Don't call a PRN f 30-Jan-1 

105 0105 * 8 - oy workfile whe ght 5 in descriptor. ets 02-Feb-1982 

196 3108 -039 = Delete odySeget fnam. STS 12-Feb-1 

Ht 344 -040 - ate q seser! pror., fo parameters passed to edt$$wf_wr and edt$$wf_rd. 

109 109 -041 - AU the new Sutil driver's data otrysrures. JBS 21-Feb- nt 

110 110 - rk: - Initialize record attribute for primar Y file to CR. STS Osher 82 

111 111 -045 - Don't signal on exceeded disk if ctx bit not set. STS 18-Mar-1982 

116 \¥¢ -044 - Add a parameter to control use of related file name. JBS 24-Mar-1982 

11 11 -045 = Only remember input file name ang gsr toutes on the first input open, 

114 114 even if it fails. JBS 26-Mar-198 
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M11 
for VAX/VMS 1o~3007 138% 90:33:33 VAX-11 Bliss-32 ged Page 
14-Sep-1984 23:1 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 (1 
Add a flag for non-standard input file. JBS 26-Mar-1982 
: $1 rout o3 


| 
if 
) 
Add a rename module. SMB 
to delete an output file or journal file. SMB yy ee 
Make the FORWARD declaration of CLOSE agree with the body JBS 09-Apr-1982 
Remove EDTSSGET_IFIATTR, no longer yseg JBS 09-Apr- 
Don't do O-length terminal Q10s. JBS 09-Apr-1982 
Make EDTSSWF_CLS return a yorye and uss the new message. JBS 12-Apr-1982 
Add the parse routine. SMB 15-Apr-1 
Get device Sype gue tne parse of output file. SMB 26-Apr-1982 
Fix bug in R “ given an explicit file version number. SMB 04-May-1982 
Check for Process Permanent File on the Parse of output file. SMB 11-May-1982 
Make minor modifications based on code review Ms hE SMB 25-May- 
t check for record too long--check in EDTSWFREAINP instead. JBS 02-Jun-1982 
Change file attributes on EXIT with sequenced file. SMB 07-Jun-1982 
Pass back STV on parse of output file. SMB 14-Jun-198 
Revise handling of file name defaulting. JBS 16-Jun-1982 
Pass back STV on flush of output buffer. STS 01-Jul-1982 
Use an action routine with SPUTMSG so we can control access to the screen. 
JBS 06-Jul-198 
Make the status and stv vector global. STS tag hg 
Save and restore all terminal characteristics. SMB 28-Jul-1982 
Correctly report terminal read errors. STS 06-Aug-1982 
Add EDTSSINIT_10. JBS 27-Aug-1982 
Add EDT$$G_TI_SCROLL and start on long typeahead. JBS 31-Aug-1982 
nae EDTS$G_TI_EDIT; if the teresa. | a vT100, 
on 
Use escape mode to minimize the number of Q10s required. JBS 03-Sep-1982 
i $ 0 1982 
| 
| 


J 
Add EDT$$G_TI_DUMB. JBS 16-Oct-1982 
Try to reduce the number of buffered I/Os. JBS 10-Nov-1982 
Don't do copies to and from workfile - but pass addresses. 11-Nov-1982 
Allocate cache only as needed, and open workfile only after 
cache is exhausted. STS 16-Nov-1 
VT125s should default to AUTOREPEAT. JBS 01-Dec-1982 
Signal any errors from opening the terminal. STS 13-Dec-1982 
Signal errors reading from terminal and add more detai 
to error messages when opening terminal fails. STS 15-Dec-1982 
Add routine edt$$ti_deas to deassign the terminal channel. STS 21-Dec-1982 
In EDTS$STI_DEAS, set OWN storage to its initial state gne sional any errors. JBS 28-Dec-1982 
Don't deasSign the terminal channel if tracing. JBS 29-Dec-1982 
Allocate window blocks from the god to speed up FIND_WINDOW, and do some code bumming in FIND_WIND 
to the same end. JBS 03-Jan-1983 
Revise the logic for handling control Y so tha* we loop waiting for a character. JBS 19-Jan-1983 
Add EDTSSTERM_RCC. JBS 26-Jan-1983 
Remove reference to EDTSSOUT_ERRMSG, not used. JBS gh He 3 
Don't do fancy output if the file type is .TMP. JBS 01-Apr-1983 
On exit, set application keypad mode or numeric keypad mode, as the user requests. JBS 01-Apr-198 
_ t vorge max imum version sumer unless ce yested, 48s 04-Apr-1983 
mprove the appearance o ng. -Jun- 
Fix a typo caused by edit $h8 95. JB 16-Jun-1988 


| 
| 
| 
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EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS Je~300~ 138% 90:33:33 VAX-11 Bliss-32 V4.0 Page 4 


EDT! 
v04-000 14-Sep-1984 1 DISKSVMSMASTER: cEbt she 1OMOD .B32;1 (1) F 


; \7¢ Oi78 1 ! 2-094 = Defend the terminal Q10s against SYSSINPUT not $s ofte vera toel JBS we 
. ae 0175 1! 2-095 = Try improving por rornenes y extending files less o we JBS d-Aug 

: 1746 0174 1! 2-096 = More pecvgraonas.* mprovemen $ Aw on Chris Saether' gqvice. JBS 959 -Aug-1983 
; #175 0175 1 ! 2-097 = Add test for VT ze and treat it as 152. REM =Nove19 

: 176 B178 1! 2-098 - Support eorees CRT. REM S Mar 

: 177 0177 1 ! 2-099 = Add logic a Cf T2$V_ APP KEYPAD "s tresy =PECCATE always return false 

: 178 0178 1! if thes ore “net defined in STARL REM 6=M 

3; 179 0179 1 ! 2-100 = Removed macros for the previous ati and inserted condi ttenat at 

; 180 0180 1! tion around the usage of the cells in question. REM 19-Mar-1 

s 18) 0181 1 ! 2-101 = Added logic to cause she —— function (that renames the temp file 

; ise 01 ¢ 7% to be the new output f opr “Be gore the ACL from the input file. 

; «18 3 1! fyts comp ties only if xA58e PROT_OP $a ined. REM 21-Mar-1984 

> «(184 184 1 ! 2-102 = Fixed conditional comp ilat £390 so that VT102s etc. get EDTS$G_DEC_CRT 

3; «6185 0185 1! properly set. REM 1- Ray-19 

: 186 0186 1 !-- 

3: «187 0187 1 
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12 
EDTS10MOD EDTSIOMOD = 1/0 for VAX/VMS 18-Sep-19 4 09:3 :33°- VAX=11 Bliss-32 V4 0-743 Page 5. 
- Declarations 14-Sep-1984 12:23:19 DISKSVMSMASTER: CEDT.SRCJIOMOD.832;1 sei 
; 189 1 1 ZSBTTL ‘Declarations’ 
: 190 189 | 1 | js 
; 191 1 1 | TABLE OF CONTENTS: | ; | 
; 19¢ 191 1: ; 
: 19 192 1 os) 
: 194 i REQUIRE "EDTSRC: TRAROUNAM’; : 
$ | . 
; 196 633 1 FORWARD ROUTINE 3 
; 197 0634 1 EDTS$$10_ERRMSG : NOVALUE, s | 
; 198 0635 1 PUTMSG_ACTION a 
; 199 0636 1 EDTSSFATAL_IOERR : NOVALUE, sf 
; 90 06 1 DISSINIT TO : NOVALUE, : | 
; 201 636 1 DTSSWF_OPN, a, 
; 0@ 0639 1 EDTSSWF-CLS, : 
; 20 0640 1 WF OPN s | 
> 204 0641 1 FIND Window, : 
> 205 0642 1 EDTSSWF WR : NOVALUE, s | 
; 206 0643 1 WRITE WINDOW : NOVALUE, . 4 
: 207 0644 1 REPLATE_WINDOW, | s ¢ 
; 208 0645 1 GET WF > NOVALUE, 
; 209 0646 1 EDTS$wWF_RD : NOVALUE, 
: 210 0647 1 EDTSS$PAR_FNAME 
: 211 0648 1 EDTSSOPN~INOUT 
; ig 0649 1 EDTSSOPNIFIDEF, 
: 21 0650 1 EDTS$SOPN_OF IDEF, 
: S14 0651 1 EDTSSCLS7FI, | 
: 215 065¢ 1 EDTSSRD_IFI. 
: 216 065 1 EDT$S$WR-OFI. 
: 217 694 1 EDTSSREN FI 
: 218 0655 1 EDT$S$FLUSH_OBUF , 
: 219 0656 1 CC_ENABLE, 
: 220 0657 1 CC"AST : NOVALUE, 
3 221 0658 1 EDTS$STERM_RCC : NOVALUE, 
; 3¢ 0659 1 EDT$$TI_OPN, 
3 22 0660 1 EDTSS$TI-RES 
> 226 0661 1 EDTS$TI-DEAS : NOVALUE, 
> 225 066¢ 1 EDTSSRD~CMDL 
: 226 0663 1 EDT$SSTI“WRLN : NOVALU 
; 327 0664 1 EDT$$TI-GETCH : NOVALUE, 
; 228 0665 1 EDT$S$TI-~WRSTR : NOVALUE, 
; 329 0666 1 EDT$STI-RDTYA 
3 230 0667 1 EDT$S$TI-RDSTR : NOVALUE, 
> 231 0668 1 EDT$$STI-ENTERCHM : NOVALUE, 
3 3 86 ; i EDTSS$TI-LEAVECHM : NOVALUE; 
: 236 0671 1! 
: 235 0672 1 ' INCLUDE FILES: 
; 36 0673 1! 
: 537 0674 1 | 
: 238 0675 1 REQUIRE "EDTSRC:EDTREQ'; 
: 239 0810 1 | 
: 40 0811 REQUIRE "EDTSRC:SYSSYM'; 
: 42 0B4¢ REQUIRE ‘TRACESEL’; ! Turn tracing on or off 
; Sti OB 72 1 REQUIRE "EDTSRC:TRACEMAC’; ! Define $$TRACE macro 
3: 245 1101 «1 


12 | 
EDTSJOMOD EDTSIOMOD = 1/0 for VAX/VMS ib-3e 1984 00:35:33 VAX-11 Bliss-32 v4.0-74 Page 6 EDT 
eet Declarations 1 =3007 1382 99:3 719 DLEKSVMEHASTERSLEDT SRCSIOMOD.B32;1 . (2). Vv04: 
: 246 1108 1 | | 
; 24 11 1 ! MACROS: None 
; 248 1104 1! 
; 249 1105 1! 
; 2 1198 1 ! EQUATED SYMBOLS 
; 1 1107 1! 
3 25 1108 1 
3; ¢ 1109 1 FIEL ; 
; 54 1110 +1 ITEM_FIELDS = ! Item list fields 
3 @? 73) & ET 
; 256 1136 1 BF LEN = £8. 0, 16, 0) ! Buffer Length 
i 357 1113 1 CODE = 0 16, 16, 0). i Item code 
; 258 1114 1 BOF _ADR = Cf 3 i Buffer address 
: 259 1115 1 RLEN_ADR = C2, 6, 32, 03 i Return Length address 
; 260 1116 1 ; 
; 261 1117 (1 
: o¢ 1118 1 FIEL 
3; € 1119 1 SETM_FIELDS = ! SETMODE fields 
; 264 1120 1 SET 
; 265 1121 1 S_CLASS = (0, 0, 8, 0), ' Class 
; 266 1158 1 S_TYPE = (CO, 8, 8, 0) ' Type : Re 
; 267 1123 1 S"wID = CO, 16. 16, 04, i Terminal width 
; 268 1124 (1 S-CHAR = Ci, 0, 32, 0] ! Characteristics 
; 269 1125 1 TES; 
; 270 1126 1 
: 371 1127 1 LITERAL | 
: Le: 1128 #1 EDTSK_FAC_NO = 133, 
; 2? 1129 1 WINDOO SIZE = 11, ! The number of buckets in a cache slot 
: 274 1130 1 NUM_WIRDOW = 100; ! The number of windows to cache | 
. are 1131 1 
; 276 1132 1! 
3: e277 1133 1 ! OWN STORAGE: 
; 278 1134 1! 
3 ery 1135 1 
; 280 1136 1 OWN mL 
3; 281 1137 «1 CACHE_ADDR : VECTOR CNUM_WINDOW], ! The start address of the heap storage for this window 
; see 1138 #1 CACHE_TIMER, ' Counter incremented for each reference 
: 28 1139 1  — CACHETWINDOW : VECTOR CNUM WINDOW), i The number of the window in a slot | 
3; 284 1140 1 CACHE-REF : VECTOR CNUM WINDOW), ! The timer at the Last reference to this window 
; see 116) | CACHE-DIRTY : VECTOR CNOM_WINDOW, BYTE); ! The window dirty flag. 
: 387 1128 | OWN | 
; 288 1144 1 WF_CACHE_FULL, | 
; 289 1145 1 N, 
: 290 1146 1 MYBUF : BLOCK CCHSALLOCATION (256)] 
; 291 1147 1 MYBUF2 : BLOCK CCHSALLOCATION (256) 4 
: 44 1148 1 INPUT_NAME : BLOCK CNAMSC_MAXRSS, BYTE), 
: 29 1149 1 INPUT~NAME_LEN, 
> 29% 1150 1 INPUT~RAT, | 
: 295 1151 1 INPUT~RFM | 
: 113¢ 1 INPUT-PROT, 
: 29 1153 1 INPUT | 
; 298 1154 1 ATTRIBUTES_SET : INITIAL (0) ! 1 = input attributes have been set | 
; 299 1155 1 ATTRIBUTES-DEFAULTED : INITIAL (0), ! 1 = input attributes = default attributes ‘ 
; 300 1156 1 JOURNAL : SNAM . ' NAM block for the journal file (so we can delete it) 
; 301 1157 1 NAM BLOCK : $NAM_DECL ! NAM block for last output file opened (so we can delete it) 
: 302 1158 1 TERR_IN_RAB : S$RAB_DECL, | 

} 


.] 
| 
j 
| 
| 


D 
EDTS EDTSIOMOD - 1/0 for VAX/VMS Jo-30071 386 90:33:33 VAX-11 Bliss-32 Fed bod Page 7 
vV04- Declarations 14-Sep-1984 12:23:1 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 (2), 
; 303 1159 1 TERM_OUT_RAB : $RAB_DECL, 
; 304 1160 1 10SB8": VECTOR (4, BORD IS 
3; 309 1161 1 TT_CHAN, 
: BS 1396 1 TT_OPEN : INITIAL (0), ! 1 = terminal open 
; 30 1165 1 T_BEVCHAR : BLOCK (4, BYTE) ' Terminal independent characteristics 
; 308 1164 1 tidevclass : BLOCK C4, BYTES, i Device class 
; 309 1165 1 T_DEVDEP : BLOCK (4, BYTE) ! Terminal dependent characteristics 
; 310 1198 1 t.devextdep : BLOCK (4 BYfe), ! Terminal extended characteristics 
: 311 1167 1 tidevtype : BLOCK C4, éyte : i Terminal type 
: \¢ 1198 1 T_DE : BLOCK (4, BYTEJ, ' Terminal width 
; 31 1169 1 INPUT_EFN, 
3 14 1170 1 OUTPUT_EFN, 
: 315 1171 «1 HAVE _EFNS : INITIAL (0), ! 1 = event flags allocated 
3 16 1128 1 WF _IFI 
: 317 1173 1 10"WF_RAB : $RAB_DECL, 
; 318 1174 1 IO-MVEC : INITIAL (2), ! Message to print from EDT$$I0_ERRMSG 
: $36 1175 1 10_STS, 
: 320 1178 107STV: | 
s «Bel 1177 (1 
; 32@ 1178 1! 
3 Se 1179 1 =! EXTERNAL REFERENCES: | 
: $e 1180 1! 
: 25 1181 1 
: 326 1182 1 EXTERNAL ROUTINE | 
; 327 1183 1 DISSFMT_STR ; 
; see 1184 1 EDTSSFMT—CRLF, ! Terminate a Line 
: 4 1185 1 EDTSS$F MSG 
; 330 1186 1 EDTS$SC_RESET 
; 331 1187 1 EDTSSMSG_TOSTR, | 
; 332 1188 1 EDTS$ALO-HEAP, 
3 $37 1189 #1 EDTSSDEA_HEAP : NOVALUE; 
: 334 1190 1 
3 339 1191 1 EXTERNAL 
5 $39 1138 1 EDT$$G_TI_PLEN 
; 337 1193 1 EDT$$G_TI-RESET, 
; 338 1194 1 EDT$$G_JO0_IFI, 
; 339 1195 1 EDT$$G_EDIT_MOD, 
: 340 1196 1 EDT$$G_TI_TYP, 
3 36) 1197 1 EDTS$$G_TI_WID | 
; 342 1198 1 EDT$$G_CC~: VOLATILE, 
: ez 1199 1 EDT$$G_DEC_CRT 
> 344 1200 1 EDT$$G_EIGAT BiT, 
: 345 1201 1 EDTS$T_FMT_BOF, 
: 346 1208 1 EDTSS$A_FMT~CUR, | 
; 47 12035 1 EDT$$T_RDARED : BLOCK CCHSALLOCATION (K_RDAHED LEN)J, ! Read-ahead buffer 
; 348 1204 1 EDT$$G_RDAHED ! Number of characters in read-ahead buffer 
: 349 1205 1 EDT$$G_TI_SCROLL, ' 1 = terminal has scrote ing regions 
; 350 1206 1 EDT$$G_TI EDIT ' 1 = terminal has editing features (ICM, DCH, IL, DL) 
> 351 1207 1 EDT$$G_ENB_AUTAPT, i 1 = OK to use Autorepea mee | 
: 26 1208 1 EDT$$G_TI - ! 1 = terminal driver needs CR to avoid wrapping Lines 
; 37 : +4 : EDTSST_PMT_KPD : VECTOR C, BYTE); ! Counted string of keypad prompt 
: 355 1211 1 OWN | 
: 23 1 6 ! VFCHD : BLOCK CCHSALLOCATION (255)); ! Sequence no. in VFC files. 
3 356 1214 1 GLOBAL 
3 59 1215 1 EDT$$G_IO_MVEC : INITIAL (2), 
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1 EDT$$G_I0_STS 
EDT$$G_10-STV 


ZIF edt$$tr_act 
ZTHEN 


——3 > a 


GLOBAL 
EDTSSL_TR_INFLG; ! 1 iff input from trace file 


eccecr 
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EXTERNAL ROUTINE 
STRSCOPY 
LIBSGET EF. 
LIBSFREE_EF; 

1+ 

This module uses the following message codes: 


MESSAGES ((EDITORABO, OPNINTRM, OPNOUTTRM, ERRINPTRM, INSMEM, IOERRWRK, WORFILCLO)); 
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EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX=11 Bliss-32 V4.0-74 P 
EDT $j ERRMSG = print an 1/0 error message 12286871388 99:33:79 DISKSVMSMASTERSCEDT SRCIIOMOD.B32; 1 — (33 
RZSBTTL "EDTSSIO_ERRMSG = print an 1/0 error message’ 
GLOBAL ROUTINE EDTS$10_ERRMSG ! Print an 1/0 error message 
: NOVALUE = 


144 


; FUNCTIONAL DESCRIPTION: 


Put out an 1/0 (RMS) error message. The status and stv have already 
been placed in the message vector by fiohndlr. 


0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: ! FORMAL PARAMETERS: 
: NONE 

: ! IMPLICIT INPUTS: 
: : EDTS$G_10_MVEC 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
1 


NONE 

i ROUTINE VALUE: 
i NONE 

i SIDE EFFECTS: 


' 

' 

' 

' 

' 

' 

' 

‘ 

' 

' 

: 

; IMPLICIT OUTPUTS: 
' 

' 

' 

' 

' 

J 

' 

' 

Sends text to the screen. 
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BEGIN 
SPUTMSG (MSGVEC = EDTS$$G_IO_MVEC, ACTRTN = PUTMSG_ACTION); 
END; ' of Foutine EDT$$10_ERRMSG 


-TITLE EDTSIOMOD EDTSIOMOD - 1/0 for VAX/VMS 
IDENT \V04-000\ 
~-PSECT _EDTSDATA,NOEXE, PIC,2 

00000 CACHE_ADDR: 


-BLK 400 
00190 CACHE TIHER: ‘ | 
00194 CACHE_WINDOW: 
-BLK 400 
00324 CACHE_REF : | 
-BLK 400 
004B4 CACHE_DIRTY: 
-BLK 100 
00518 UF CACHE TUL ‘ 
. | 
O51C WF_OPEN:.BLKB 4 


0520 MYBUF: .BLKB 256 


<m 
Ss 


De nn ee ee ee NN ee es, Se SS SS ee. 


susie 


or VAX/VMS 
print an 1/0 error message 
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00000000 
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00000000 


00000000 


00000002 


00000002 


1 B.. -1984 VAX-11 Bliss-32 V 

Ve=8ep=1986 19:23:19 DLSkSVMSMASTER SLED 
0062 MYBUF2: .BLKB 256 

INPUT_NAME : 
~BLK 55 

0081 “BLKB 
0820 INPUT_NAME LEN: 
00824 INPUT_RAT: 
00828 INPUT_RFM: 
0082C INPUT_PROT: 
00830 INPUT_MRS: 
00834 ATTRIBUTES SET: 
00838 ATTRIBUTES DEFAULTED: 
0083C JOURNAL _NAM: 
0089C NAM_BLOCK: a 
OO8FC TERM_IN_ AaB: 
00940 TERM_OUT. “MB: 


LKB 
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1T_CH 
00990 TT"OPEN: .LONG 
00994 T_BEVCHAR: 
-BLK 
00998 T_DEVCLASS: 
0099C T_DEVDEP: 
009A0 T_DEVEXTDEP: 
009A4 T_DEVTYPE: 
009A8 T_DEVWID: 
OO9AC INPUT_EFN: 
00980 OUTPUT _EFN: 
00984 HAVE EFNS: | 
0988 WF_IFI: .BLKB 
O"WF_RAB 


OL os os 
“ 
o 


A 
OAgC “BLKB 
Bt LDTS$6. 10 VEC: 
00810 EDT$$G_10_STS:: 


Rw MEERA FO F FF FF FF FF F OFWOD 


7 °SRCIIOMOD. B32; ha 


Sete ee Pe Se Se Se Se Se Se Se Sees Fe Se eee Sean 


aI SI SSS SS SS SI SS 


| 
| 


aan oo - 
sy me ~ 
~ wer ™N 
rm - 
a 
on ee rererersaces 
La) 
a 
- 
*. 
N 
~» 
@ 
=o 
a 
= - 
So a 
| bend a Lad 
Ne o < -a 
wu az = 2 28a. = oO N 
~a <qw L =) v¥oa <éw qe fs _ Oo 
| mw eew ee [ VV) tt OFfzw ws € 
oe awst — 2 —=x= t= es¥2 — = 
ee ew (ak £< = >=e a8 6 
wa VewOoOK weet wo wh CcOMN ad 
>w Ld [ ed = tt OoO22a ° 
ws —- w= )_we_ete & § OFura-O .s ¢€ 
we ZLKHO HOLY SO #4HUW-0 BG « 
ma uYHRR COW FH CH LD WM i z= 
tw PRA-AR —-RHQ RH ee WME ” > 
ne Peare- OF 1 OA COW Fore «oe 
| awn —K—wWweA WOU WO WWORQOWa ” 
| —< aa ww wee Wi Amew ww . 
~= ww *s — = MO = 4 * MQ . — . | 
ow ec ee Ou OFM w -E + « o veo 
= 's*-anuooa Ooc-Z4 Faw zs Ym Z2wMH 
-> SOW dw > wr Owvra =r o = OF>t 
—A —MYOwaec &—- XT Hwwo weas Zz ec =e 
ie 4 OEe=r OO 1a it ewe2e2cuo '- &e& &- OO 
=xwm 60 t RO —UHtE Ont § ee EO Ow Ww BO 
qe —-— Ode Owns See rw Zoe a (| tA 
>a ZEewuw t-tests ett § Qwacore Oo Oo ‘a 
ent covvver-VovV0cOwe3D VY = YOU>> 
PAPARPAARHAAAAAPRAAALuw 112A FH H-YNORM 
PAAAARAAAAAAAAAAAAAA — HATS 
ee ee EE OCC OE SCs 
Mo Aan AQQQAAAAAAaAaAaakase“AaAAaa>-—UWw&h hom DOS 
Ne FOU a ( wihiaws 
nme 
re 222222222222 22222222 - > aoa 
-- @O>@0 aqacaacacacacacacaacaca ww « ” 
om MEM ORR eR ee ee ee ee ee eee ee ee Ul OTT 
Om JW ee Oe Oe Oe OE OO OO KOM C EE UI 
QO WD WWW 
ww “Oo e eeesveeeseseteeeeeeeeee#eeeee ° wvandugt 
aooco _ 
aon a 
-— oo 
se A 
aa Co 
Nee _— 
wm a 
i | ws 
xzrovy 
cm w onuwoww 
- Cooooo- 
@ ooococo 
o oooooo 
e o oooooo S 
a Ovuv.ess oO 
@ Or-GSOuOo © 
i) So 
nn Oo a 
wo WuuwwT 
e€ ~OWoO w 
a 
a oO 
°o >e Vv 
= oo A 
al oo _ 
. oo a 
oo w 
oO o a 
~ So 
-_ So 
w? oOo ee 
zc a 
>s o 7) 
me 4 
<c 
> oO a 
we So c 
ca Oo - 
°o o ~ 
st oS > ] 
o °o 
oO [=] « 
=~O Oo 
el 4 oO 
= 
‘c 
a — 
au. = 
=O re = 
-_ ~ 
A 2 
APA N 
ee ~w ~ 
ao N N 
py eres) - 
ow 
N 
- 
” 
wv 
Cc 
- 
58 a 
- 
ai 8 6S 
- a 
w> ‘. *e 


04-000 


1 


ow 


5 el el eel el ee ek el el ed ek ek ke ee 


ONAL WN —"OOONOUS wn — 


439 


Et 


SRLS LEE 
APAEMAMAMAGMNMNAIN 
DONAUSWN—OO@ 


Sener 
ya 4 
wn-o 


COCOONS -1-t 


WO DONA VNE UN“ O OONOYV EWN -"OOONGOUSW Be 


WWWWAIAIAI AAAI AAI AI I ro nano ngnonononanononofnononorononororofrororrrrnn = Co 


Coooo°o 
Fun -O0Onou 


mk a a a a a a a tt a 9 = = = a — — 9 —) bd a ss 9) 2) 9 9 4) 1 2 om 
oe ot ss ss 


RROPONOPOPONONOPONOPONONPUNDINUDY 2 9 2 tt oes 
- 


WWWNWAAA AAAI WII AAAI 
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i ROUTINE VALUE: 

Always 0, to tell SPUTMSG not to output the text itself 
i SIDE EFFECTS: 

Sends text to the screen. 
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D_- 1/0 for VAX/VMS 18-Sep-1984 00:33:33 VAX-11 Bliss 
CTION = Dispose of SPUTMSG's text 14-Sep-1984 12:25: DISKSVMSMAST 
XSBTTL "PUTMSG_ACTION = Dispose of SPUTMSG''s text’ 
ROUTINE PUTMSG_ACTION ( ! Dispose of SPUTMSG's text 
JERT DESL ! The text to be printed 
= 
1o4 
FUNCTIONAL DESCRIPTION: 
: This routine is called by SPUTMSG for each Line to output. 
: Syutout the text through EDT's formatting routines, and tell 
SPUTMSG to not output it. 
| FORMAL PARAMETERS: 
 TEST_DESC A descriptor for the Line of text to be output 
i IMPLICIT INPUTS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 
J 
' 
' 
' 
' 
4 
' 
' 
‘ 


BEGIN 


P 

TEXT_DESC : REF BLOCK (8, BYTE); 
'¢ 
Send the string to the format buffer. 


EDTSSFMT_STR (.TEXT_DESC CDSCSA_POINTER], .TEXT_DESC CDSC$W_LENGTH]); 
i Terminate the Line. 

EDTSSFMT_CRLF (); 

‘Tet SPUTMSG to not output the Line. 


RETURN (0); . 
END; ! of routine PUTMSG_ACTION 
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; Routine Size: 29 bytes, Routine Base: _EDTSCODE + 0016 


0000 00000 PUTMSG_ACTION: s & 

«WORD Save nothing ; ; 8 

50 04 ac p0 0 HOVE TEXT_DESC, RO ; ; 8 

E 60 3¢ MOVZWL (RO)* =(SP) : ; 8 

04 AO dD 00 PUSHL  4(ROS : ; 8 

00000000G 00 02 FB sis CALLS eee EDTSSFMT_ST : s § 
000000006 00 00 FB 0001 CALLS #0, EDTSSFMT~CRLF : ; 8 
50 D4 OOO1A CLRL —_ RO : ; 8 

04 0001C RET : ; H 

s § 

s § 

s § 

s & 
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K 
OMOD - 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX-11 Bliss-32 V4.0-74 
FATAL_IOERR = put out an 1/0 error messag 132800- 138 99:33:49 


RSBTTL "EDTSSFATAL_IOERR = put out an 1/0 error message and abort’ 
ier” ROUTINE EDTSSFATAL_IOERR ( ' Put out an 1/0 error message and abort 


' 
) : NOVALUE = : Not used 


'4¢ 


i FUNCTIONAL DESCRIPTION: 
Put out an 1/0 error message and abort. 
FORMAL PARAMETERS: 
N Not used. 
IMPLICIT INPUTS: 
EDT$$G_EDIT_MOD 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 


Calls EDTSS$SSC_RESET and EDTS$IO_ERRMSG . 
Never returns to its caller. 


i eet et ee re I i i? tr ft? te? tt te? te te tet 


- BEGIN 
Reset any screen modes. 


IF (.EDTSS$G_EDIT_MOD EQL CHANGE_MODE) THEN EDTS$SC_RESET (); 


EDTSSIO_ERRMSG (); 
SIGNAL_STOP (EDT$_EDITORABO); 
END; ! of routine EDTSSFATAL_IOERR 


0000 00000 ENTRY EDTSSFATAL_IOERR, Save nothing 
000000006 D3 900 ist EDTS$6_EDIT_MOD 
000000006 00 0 FB OOO0A CALLS #0, EDTS$SC_RESET 
0 FB 00011 1$ CALLS #0 EDTSSIO ERRMSG 
000000006 8F DD 00015 PUSHL #EDT$_EDITORABO 
000000006 00 1 FB 0018 CALLS #1, LIBS$STOP 
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; Routine Size: 


s 3S 
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EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 5ep-1984 :3 VAX=-11 Bliss-32 V4.0-74 Page 17 EOTS 
Oa O00 WF_OPN = Open work file 12-808: 138 99: 33: 33 DISKSVMSMASTER: as OS ACTIONOD. B32;1 . (7) VO04- 
; 339 14 $ 1 XSBITL "WF_OPN = Open work file’ 4 
: 3 $ 14 ROUTINE WF “OPN ! Open work file : 2 
3 284 1208 1 ie | 
; 559 1410 1 !44 ae 
; 560 1411 1 =! FUNCTIONAL DESCRIPTION: : q 
; 361 1216 1: ; > § 
; 26¢ 1413 13 Open the work file. Abort if it fails. i 
s 4 Vale ! } The work file is opened in SYSS$SCRATCH. The cache area is allocated from virtual memory. ; 2 
; 565 1416 1 ! FORMAL PARAMETERS: ae | 
3 206 1417 1! eS | 
; 56 oR 1! NONE ae | 
; 568 1419 1! s 4 
; 569 ios 1 ! IMPLICIT INPUTS: s $ 
: 570 1421 1! : § 
3; $71 1058 1! NONE s 4 
; 276 1423 1! 
. or 14246 1 ! IMPLICIT OUTPUTS: 
: 574 1425 1! 
s Sr 1426 1! I0_STS 
: 576 1427 1! 10_STV 
: 577 1428 1! WF-IFI 
; 578 1068 73 CATHE_ADDR 
; 579 1430 1! 
; 580 1431 1 ! ROUTINE VALUE: 
; 581 1636 1! 
; 582 14335 1! 1 
3; 583 1434 1! 
; 584 1435 1 ! SIDE EFFECTS: 
3 389 1436 1! 
$ 289 ye : Opens the work file, {frteee an error message and does not 
; 588 1439 1! (sits "EDISSALOT one by get virtual memory to hold the cache. 
; 589 1440 1! 
; 590 1441 1 !<< 
; 591 1226 1 
; 592 144 $ BEGIN 
; 593 1444 
3; 594 1445 § LOCAL 
; 595 1446 XABPRO : SXABPRO DECL, 
3; 596 1447 § WORK_FAB : SFAB_ BECcL; 
3; 597 1448 
; 598 1449 '¢ 
; 23) 1ee9 - Set up the FAB, RAB and XAB for the open. | 
3; 601 P 1428 SFAB_INIT (FAB = WORK_FAB, FAC = <GET, PUT, BIO>, FOP = <TMD>, ALQ = WINDOW_SIZE, RAT = CR, RFM = UDF, 
3 60 145 TV = 205 ,SHR = NIL. AB = XABPRO | 
; 60 1454 WORK_FAB [FABSL_FNA] = UPLIT (BYTE ( CEbTUORK')); 
3; 604 1455 WORK_FAB LFABSB_FNS) = SCHA ARCOUNT (' ET RK‘); 
; 605 1456 WORK-FAB CFABSL DNA] = UPLIT (BYTE. ( SYSSSCRATCH: .TMP")); 
3; 606 145 WORK_FAB_ (FABSB_DNS ; ee (' Pe Sy CH: TMP de 
; 607 1458 $RAB-INIT (RAB = J0_WF_RAB, = <B10>, FAB = WORK_FAB, CTX = 0); | 
: one 1623 $XABPRO_ INIT (XAB = “X¥ABPRO, PRO = <0, RWD>) | 
; 610 1461 IF (IO_STS = SRMS_CREATE (FAB = WORK_FAB)) 
3; 611 1462 2 THEN 
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00 6E 00 2C OO00E 
6E 00015 
6E 5003 8F B80 00016 
04 AE 10 DO 0001B 
10 «AE 0B 00 OO01F 
16 «AE 2023 =8F BO 00023 
1¢ =AE 14 90 00029 
1€ AE 02 60 ih D 
24 AE 50 AE 9E 00031 
¢f AE AF AF 9E Oo 6 
OQ AE BS AF 7. 0038 
34 AE 100 8F BO 00040 
00 6€ 00 2C 00046 
Be A6 00040 
A6 4401 = BF BO O04F 
BC AG 0800 8F 3C 00055 
A6é 6— 9E 00058 
00 6E 00 2C 0005F 
0 AE he) 
23 AE 581 F BO 00 
8 AE FF47 F B BOE 
E DD 00074 
000000006 00 01 FB 00076 


-BLKB 
P.AAA: <ASCII 
“BLK 
P.AAB: -ASCII 
$RMS_PTR= 
EXTRN 
WF_OPN: .WORD 
MOVAB 
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EDTS EDTSIOMOD - 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX-11 Bliss-32 V4.0-74 

tee WF _OP = Open work file 1 =300n 138% 09:33:43 WT EKSVMOMASTER-CEDT Sac SIOMOD .832: 1 

3 gig 1463 BEGIN 

j 613 1464 WF_IFI = .WORK_FAB CFABSW_IFIJ; 

; 615 1466 IF ( NOT (IO_STS = SRMS_CONNECT (RAB = IO_WF_RAB))) THEN IO_STV = .1O_WF_RAB CRABSL_STV]; 

: gi9 1468 END 

; 918 169) ELSE 

3 61 1470 10_STV = .WORK_FAB CFABSL_STV); 

; 620 1471 

: 621 1O%6 ‘+ 

; 6 ¢ 147 ! Make sure the file was successfully opened. 

. ee 

; 6 ; 1476 IF ( NOT .I0_STS) THEN SIGNAL_STOP (EDTS_IOERRWRK, 0, .I0_STS, .10_STV); 

: 627 1478 WF_OPEN = 1; 

; 628 1479 10-WF_RAB CRABSL_STS) = 1; 

: 663 1480 RETURN (1); 

; 650 1481 1 END; ! of routine WF_OPN 


3 
\EDTWORK\ 
\SYSSSCRATCH: .TMP\ 


10_WF _RAB 
SYSSCREATE, SYSS$CONNECT 
fave R2,R3,R4,R5,R6 


-188(SP), SP 
#0, (SP), #0, #80, $RMS_PTR 


#20483, SRMS_PTR 
#16, 


,_$RM 

#2, SRMS_PTR+30 

XABPRO, SRMS_PTR+36 

P.AAA, WORK _FAB+44 

P.AAB, WORK~FAB+48 

#4103, WORK~FAB+5S2 

#0, (SP), #0, #68, SRMS_PTR 


T 
WORK FAB, PTR+60 
#0, TSP), #0, #88, S$RMS_PTR 


#22547, SRMS_PTR 
#-185, SRMS_PTR+8 


S 
#1, SYSSCREATE 
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EDTSIOMOD = 1/0 for VAX/VM% 
WF_OPN = Open work file 


seus 


66 28 
1¢ 
BS AG O AE 
B A6 
000000006 09 gf 
e 30 
046 A6 C6 AG 
05 
04 =#A OC AE 
1 66 
7E $6 
00000000G_ 8F 
000000006 00 04 
FB1i8 C6 01 
CO 8 Ab 01 
50 01 
; Routine Size: 198 bytes, Routine Base: _EDTSCODE 


13 
1$-Se -1984 00:35:3 VAX=11 Bliss-32_V4.0-74 
12732871382 19:38:18 DL SKSVMGMASTERSCEDT. SRC410MOD.B32; 1 
09 07 MOVL RO, 10_STS 
BLBC 

C 000 MOVZWL WORK_FAB+2, WF_IFI 

F 000 USHAB 10_ 

F 0 CALLS #1, SYSSCONNECT 

D0 0009 MOVL RO, I0_STS 

E8 0009 BLBS RO, 2$ 

DO 00098 MOVL O/WF_RAB+12, I0_STV 
11 90090 BRB 

DO OOO9F 1$: MOVL § WORK_FAB+12, I0_STV 
8 O00A4 28: BLBS =‘ 10_STS, 

D O00A7 MOV I0-STS, =(SP) 

D4 OOOAA CLRL = = (SP) 

DD OOOAC PUSHL #EDTS$_IOERRWRK 

a 00082 CALLS #4, LIBSSTOP 

DO 00089 3$ MOVL #1, WF_OPEN 

D0 0008 MOVL #1, IO"WF_RAB+8 

DO OCOC MOVL 1, RO 

04 000C RET 
+ 0074 
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D 13 
D - 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX=11 Bliss-32 V4.0-74 Pp 0) 
OPN = Open work file 14 300 bbe 902337 DLEKSUMMASTERSCEDTs SRCTIOMOD.B32:1 ma BS 


) 
| 
XSBTTL "EDTSS$WF_OPN = Open work file’ | 
GLOBAL ROUTINE EDTSS$WF_OPN : Open work file 
= 


fe 


i FUNCTIONAL DESCRIPTION: 
Initialize work system 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
The work file cache. 
ROUTINE VALUE: 
Always 1; signals all errors. 
SIDE EFFECTS: 
NONE 


BEGIN 
aia — NUM_WINDOW - 1 TO 0 DO 


CACHE WINDOW [.1] = -1; 
CACHE-REF C.1) = 0; 

CACHE-DIRTY [.1) = 0; 
CACHE “ADDR {.i] = 0; 


RIPRININININININIDN 9 2 3 2 OO OH | SH QDOOCDOOCOOOCOCOCOOOOOOOOOOMM@MC@cm@oG@ -i-4 


a a kk a kd dd OTT 
Se eee al tah sb ah sh sb sh ab sh sh sd adsl eal eal eal ealeal eal eal esl eal eal oe oF oP oP oF a? oP oF oP a a a a a a? a ee <A) 
DONAUES WN 0 ODNAULS WN $0 OONAUES WR $9 OONOUES WN —OOONAUSW we 


, 
= PONIPIPIPIPI WENINIAIAIR IPI) 2 TH 


ND; ! of routine EDTS$WF_OPN 


0004 00000 .ENTRY EDTSSWF_OPN, Save R2 : 1484 

52 00000009" F 9E 9008 MOVAB CACHE WINDOW, R2 ; 
5 6 F 9A 0000 MOVZBL #99, : 1516 
6240 CE 0000D 18: MNEGL #1, CACHE WINDOWL J : 1518 
0190 C240 04 00011 CLRL = CACHE_REFCI : 1519 


ss 


T 


be ee ee el cl el le ee ee el ne ce ee eh eh el ol el ee ee oe ce et 


VOEVVOIVOVOVOVVOVOVOVOVVOVOCVVOCOCOCOCOCOCOCCO COCO OOOOOO 8988S 6 Se ee ee 


| 
| 
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IOMOD .B32 


SRC) 


=32 V4.0-74 
CEDT 


rth Bliss 
DISKSVMSMASTER: 


13:38:48 


1982 


13 
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ep- 


13 


= Open work f 


EBT SdoF ben 1/0_for VALVE 


vb4=000 
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-EDTSCODE + O13A 


Routine Base: 


46 bytes, 
1 


1529 


; Routine Size: 
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EDTS EDTSIOMOD - 1/0 for VAX/VMS 18-5¢ -1984 :35:3 VAX=-11 Bliss-32 V4.0-74 Page 23 
OueO00. EDTSSUF CLS - close the work file 1 ~8ep-19 4 90:33:49 NT EKSUMGHASTERSCEDT SRCSIOMOD.832;1 . 3 
"ae 1587 4 !- 
; 38 1 8 4 10_STS = $RMS CLOSE (FAB = WORK_FAB); 
: 740 1 4 107STV = .WORR_FAB CFABSL_STVJ; 
3 fe) ! 39 END; 
: tas % IF ( NOT .IO_STS) THEN SIGNAL_STOP (EDTS$_WORFILCLO, 0, .10_STS, .10_STV); 
: 745 1334 END; 
: 746 1595 
: 74 1396 1+ 
; 748 159 ! Now release the cache. 
: 749 1398 ie 
: 750 1599 
: 031 1600 DECR I FROM NUM_WINDOW - 1 TO 0 DO | 
; 738 160¢ IF (.CACHE_ADDR [.1] NEQA 0) THEN EDTSS$DEA_HEAP (%REF (WINDOW_SIZE*512), CACHE_ADDR [.1)); | 
: 755 1604 RETURN (1); 
: 786 1605 7 END; | of routine EDTSSWF_CLS 
| 
LEXTRN SYSSDISCONNECT, SYSSCLOSE | 
007¢ 00000 .ENTRY EDTSSWF_CILS, Save R2,R3,R4,R5,R6 : 1532 
ge onoonogar ge 3 $8885 HU Ss NS ; 
5 FB18 C6 €E9 0000D BLBC  -WF_OPEN, 2$ : 1568 | 
B8 A6 OF 90012 PUSHAB 10~WF_RAB > 1574 
nn ae 8) 8 oobre mo 6B ie 
04 Ab C4 «AG SE OOOTF MOVAB 10.WF_RAB+12, I0_STV + 1575 
31 66 £9 00024 BLBC_ 107STS, 1$ : 1577 
0050 «BF 00 6E ‘ 00 2c 909 d MOVCS #07 (SP), #0, #80, $RMS_PTR ; 1583 
a in ee ae ‘ie 
3 AE 88 90 qD03A MOVB 55° SRMS~PTR+31 : 
6 AE B4 A6 BO C00 E MOVW WF IFI, QORK_FAB+2 : 1584 
04 AE 9F 0004 PUSHAB WORK : 1588 | 
peng O) GRRE GALLS: Hoseeose Sai 
04 Ab 10 AE DO 90090 MOVL WORK FAB+12, I0_STV : 1589. 
12 ry; 5 0 33 BLBS 10_STS, 2$ > 1592 | 
7E 66 7D 1$: MOVa JO7STS. -(SP) : | 
7E D4 00058 CLRL = (SP : 
000000006 8F DD 30 50 PUSHL #EDT$_WORFILCLO : 
000000006 99 04 FB 0006 CALLS #4, LIBS$STOP : 
2 63 BF 9A 0 6A a8: MovzBL #99, I > 1600 
FSFC co4e D3 0 i $: TST CACHE _ADDRCIJ ; 1602 | 
--BSFC C642 DF 0007 PUSHAL CACHE_ADDRCIJ : 
04 AE 1606 BF BC OO7A MOVZUL #5653 - 4(SP) : | 
5 
000000006 00 03 re at a CALLS #2, _EDTSSDEA_HEAP | 
5) 01 00 SBD : MOVL #{, RO > 1604 


neste 


H 13 
nee ed Deeper ces nt fee tes tite 12r8eB71882 99:33:93 Wea SAASFERS cE oH shCSromop.032;1 29° «84 
04 00090 RET : 1605 
; Routine Size: 145 bytes, Routine Base: _EDTSCODE + 0168 
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EDTSIOMOD = 1/0 for VAX/VMS ih-se -1984 00:35:33 VAX-11 Bliss-32 V4.0-74 Page 25) 
FIND_WINDOW = Find the window containing a buck 127808-13be 90:33:78 DLEKSVMGHASTERSCEDT SRCTIOMOD.B32; 1 . 183 
1607 1 ZSBITL ‘FIND WINDOW = Find the window containing a bucket’ 
16 3 1 ROUTINE FIND WINDOW ( ' Locate a specified bucket 
1609 1 BUKT_NUM, ! The bucket to locate 
1919 : — ! Where to put window number (address of bucket) | 
1016 1 
1613 1 t4¢ | 
1913 ! FUNCTIONAL DESCRIPTION: 
1oi8 1/ Locate the window which contains a specified bucket in the cache. If it 
+ ! is not in the cache return -1; otherwise the window number is returned. 
1818 FORMAL PARAMETERS: 
16 1 BUKT_NUM The bucket we are trying to locate. 
16 : 1 ADDR Address of a longword to receive the address of the requested 
16246 1! bucket. 
1625 1! 
1626 1 ! IMPLICIT INPUTS: 
los? 1! 
1628 1! CACHE_WINDOW 
\o¢3 1! CACHE_ADDR 
1630 1! 
198) : IMPLICIT OUTPUTS: 
1638 1! CACHE_TIMER Incremented if window found 
1os8 : CACHE_REF Set to CACHE_TIMER for the window found 
1636 ROUTINE VALUE: 
lo : ; The number of the window containing this bucket, or -1 if none found. 
1640 1 | SIDE EFFECTS: 
1641 1! 
1066 1! NONE 
164 1! 
1644 1 !<- 
1645 1 
1646 BEGIN 
1647 
1648 LOCAL ; 
1649 P_CACHE WINDOW : REF VECTOR CNUM_WINDOW], ! to improve the code in the loop 
1650 WINDOW_RuM; 
1651 
1636 '¢ . | 
1937 : Compute the window which contains this bucket. | 
1655 WINDOW_NUM = (.BUKT_NUM - 1)/WINDOW_SIZE; 
1889 i Search the cache to find the window, if found, then compute the address | 
1638 : of the requested bucket and return it. 
1660 2° P_CACHE_INDOW = CACHE WINDOW C02: 
1006 DECR I FROM NUM_WINDOW - 1 TO 0 DO 
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E 1$49n0D EDTSIOMOD = 1/0 for VAX/VMS 3-43 1984 09: 33: 33 VAX-11 Bliss-32 V 
Vv FIND_WINDOW = Find the inde containing a buck 12: Hae 1 bis SKSVMSMASTER: cet” she 10M0D .B32;1 
: 16 1664 IF (.P_CACHE_WINDOW C.1)] EQL .WINDOW_NUM) 
: Bl 1665 THEN 
; 8 1666 BEGIN 
: 81 166 .ADDR = .CACHE_ADDR C.1] + ((,BUKT_NUM = 1) MOD WINDOW_SIZE)*512; 
; 820 1668 CACHE_TIMER = <CACHE TIMER + 1; 
; 821 166 CACHE-REF C.1) = .CACHE_TIMER; 
; 8 é 1670 RETURN (.1); 
, 8 1671 END; 
: B24 167¢ 
; 825 167 '¢ 
; 8 $ 1674 ' Not in the cache, return failure. 
: 8 1675 le 
: 828 1676 RETURN (-1); 
; 829 1677 1 END; ! of routine FIND_WINDOW 
003C 00000 FIND_WINDOW: 
-WORD Save R2 ae / gh? 
55 00000000" EF § 00002 MOVAI CACHE TIME 
52 06 AC 01 ¢3 00009 SUBL BOKT 
5 52 0B C7 S000E DIVL3 i. RO bowW_N 
54 04 AS 9E 0001 MOVAB CACHE 2 WIND Pa CACHE _WINDOW 
50 63 8F 9A 00016 MOVZBL # 
53 6440 D1 OOO1A 18: CMPL (P_CACHE_WINDOW)C1IJ, WINDOW_NUM 
1F 12 OOO1E BNEQ $s” 
7E 00 52 01 7A 00020 EMUL #1 = (SP) 
51 51 BE 0B 7B 90025 EDIV. = wif, wots » RI 
51 51 09 78 O0002A ASHL. @# R 
08 BC 51 FE70 540 C1 000¢E ADDL3 Se R1, @ADDR 
65 D6 00036 INCL CACHE 
0194 €540 65 00 00038 MOVL § CACHE-TIMER, CACHE_REFCIJ 
04 0003e RET 
d8 50 F4 0003F 2$ SOBGEQ I, 1$ 
50 01 CE 00042 MNEGL #1, RO 
04 0004 RET 
; Routine Size: 70 bytes, Routine Base: _EDTSCODE + 01 


.EXTRN EDTSSINTER_ERR 


7 
K | 
ERTS 19ROD EDTSIOMOD = 1/0 for VAX/VMS 16 138% 90:33:33 VAX-11 Bliss-32 yee sees Page 7 
v04- EDTSSWF_WR = Mark bucket as modified 14-Sep-1984 12:23:19 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 (11) | 
: § 1 1678 } RSBTTL "EDTSSWF_WR = Mark bucket as modified’ 
; 8 : 1680 1 GLOBAL ROUTINE EDTSSWF_wWR ( ! Mark bucket as modified 
; 8 1681 1 i Bucket number 
3 5 16 ¢ 1 REC_DESC ' descriptor for bucket address 
; 836 1683 1 ) :"NOVALUE = 
; 837 1684 1 
; 838 1685 1 !+4¢ | 
; 833 1689 t FUNCTIONAL DESCRIPTION: 
; 841 1688 1! This routine is called when the current bucket has been modified by 
3 org 193? 1! the work file and it is going to a new bucket. This is a logical write 
3 1690 1! function, but since we are using a cache, it merely marks the bucket 
; 844 1691 1! as dirty. 
: 845 1696 1! 
; 846 169 1 ! FORMAL PARAMETERS: 
; 847 1694 1! ; ; 
; 848 1695 1! NUM the bucket number being ‘written’. 
; 849 1696 1! 
; 850 1697 1! REC_DESC address of a descriptor for the bucket 
; 851 1698 1! 
: S26 1699 1 ! IMPLICIT INPUTS: 
3; @ 1700 1! 
> 854 1701 1! NONE 
; 855 A 1! 
; 856 1703 1 ! IMPLICIT OUTPUTS: 
; 857 1704 1! 
; 858 1705 1! CACHE_DIRTY | 
; 859 1706 1! 
; 860 1707 1 ! ROUTINE VALUE: 
; 861 1708 1! 
3 £66 1709 1! NONE 
; 86 1710 1! 
> 864 1711 1°! SIDE EFFECTS: 
; 865 fat 1! : 
; 866 1715 1! Calls FIND_WINDOW. The bucket had better be in the cache. 
; 867 1714 1°! 
; 868 1715 1 !-- 
; 869 1716 1 
; 870 1717 § BEGIN 
; 871 1718 
3 o76 1719 2 MAP 
; af7 1760 3 REC_DESC : REF BLOCK C, BYTE); 
$ He 1782 LOCAL | 
; 876 17 ADDR, 
: 877 1724 FIND’ WINDOW_VAL; | 
5 3 1726 FIND WINDOW VAL = FIND_WINDOW (.NUM, ADDR); 
; 1727 ASSERT (.FIND_ WINDOW VAL GEQ 0); 
; «881 1728 CACHE_DIRTY CUFIND_WINDOW_VALJ = 1; ; 
; 882 1729 END; ! of routine EDTSSWF_WR 
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M13 
D - 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX-11 Bliss-3 
NDOW - write out a window 13=808-1 382 90:33:49 DISKSVMSMASTER 
ZSBTTL ‘WRITE_WINDOW = write out a window' 
ROUTINE WRITE WINDOW ( ! Write out a window 
WINDOW_NUA ! The window number to write 
) : NOVALUE = 


'4 


i FUNCTIONAL DESCRIPTION 
Write out an entire window. 
FORMAL PARAMETERS: 
WINDOW _NUM The slot from which the window is written. 
IMPLICIT INPUTS: 


CACHE_ADDR 
CACHE WINDOW 


IMPLICIT OUTPUTS: 
CACHE_DIRTY 
O_WF-RAB 
10_STV 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 


Writes on the work file. 
1/0 errors print an error and do not return to the caller. 


- BEGIN 

; Mark the window as clean. 
CACHE_DIRTY C.WINDOW_NUM] = 0; 
IF ( NOT .WF_OPEN) THEN WF_OPN (); 


‘+ 
: Setup the RAB with the address and length and record number. 
" 10_WF_RAB CRABSL_RBFJ = .CACHE_ADDR £ WINDOW_NUMJ; 

10-WF-RAB CRABSW_RSZ2] = WINDOW SIZE* Ves 

1O~WF-RAB CRABSL-BKT] = .CACHE-WINDOW C.WINDOW_NUMJ*WINDOW_SIZE + 1; 


Attempt to write it out. 


WHILE 1 DO 
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« SRCJIOMOD.B32; 1 
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y N 13 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:33  VAX-11 Bliss-32 V4.0-74 Page 
v04-000 WRITE_WINDOW = write out a window 12-80 8=1 Re 99: 1:23:19 DLEKSVMGRASTERSCEDT SRCSIOMOD.B32;1 . 
> 94 1788 IF ( NOT (IO_STS = S$RMS_WRITE (RAB = I0_WF_RAB))) 
: 94 1789 THEN a, sit 
3; 944 1790 
: 945 1791 IF (.10_STS EQL RMS$_EOF) 
> 946 1798 THEN 
: 947 179 EXITLOOP 
: 948 1794 ELSE 
: 949 1795 
: 950 1796 .10_WF_RAB CRABSL_STVI; 
>: 951 1797 3 SIGKAL STOP TEDTS_IOERRWRK; 0, .I1O_STS, .10_STV); 
: 93¢ 1798 3 ITLOOP; 
; 95 1799 3 
: 954 1800 
; 955 1801 2 ELSE 
: 956 180¢ 2 EXITLOOP; 
: 957 1803 2 
3 38 1804 1 END; ! of routine WRITE_WINDOW 
.EXTRN SYSS$WRITE 
000C 00000 wRITE_WINDOW: 
.WORD Save R2,R3 : 
53 00000000" EF 9E 00002 MOVAB I Ts “hs : 
52 04 DO 00009 MOVL WINDO R2 : 
FABO €342 94 0000D CLRB CACHE NUR, R : 
05 FB18 C3 €E8 b00i¢ BLBS We PEN, is 3 
FDOF6 CF 00 FB 0001 CALLS OPN : 
EO A3 FSFC C342 D0 et 1$: OVL CACME AD ADDER) 19 WF _RAB+40 3 
DA AS 1600 8F BO 0002 OVW #563 : 
50 F790 C342 0B C5 90009 MULL3 #11 tacHe” cwTnDgutR23. RO : 
FO AS 01 AO 9E 00030 OVAB 1(RO), I[0_QF_RAB+5 : 
BB A’ 9F 00035 PUSHAB 10_WF als-” : 
000000006 00 01 FB 00038 CALLS #1, STSSuRITE : 
63 50 DO 0003F MOVL RO, IO_STS : 
20 50 £8 90042 BLBS RO, 2$ : 
0001827A_ = &F 63 D1 0004 CMPL 10_STS, #98938 : 
17 13 0004C BEQL 2$7 ; 
06 «A3 C4 =A3 =O 0004 MOVL 10_WF RAB+12 10_STV : 
7E 63 7D 0005 MOVa I07STS, -(SPS : 
7E 04 00056 CLRL = = (SP) : 
000000006 8F dD 00058 PUSHL #EDT$_IOERRWRK : 
000000006 00 04 FB 00056 CALLS #4, LYBS$STOP : 
04 00065 2$: ET : 
; Routine Size: 102 bytes, Routine Base: _EDTSCODE + 0262 
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EpTsjon00 EDTSIOMOD = 1/0 for VAX/VMS Jo~3en~1 386 90:33:33 VAX=-11 Bliss-32 V4.0-74 Page He 

v04- REPLACE WINDOW - read a new window into the cac 14-Sep-1984 12:23:1 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32; 1 (13) | 

| 
; 960 1805 1 XSBITL "REPLACE WINDOW = read a new window into the cache’ ; i 
> 961 1 $ 1 ROUTINE REPLACE WINDOW ( ! Read a new bucket into the cache 44 
; 96 1 1 BUKT_NUM ! The number of the bucket to read in ta 
; 996 1 $8 1 d= : 4i 
; 964 180 1 ° 44 
; 965 1810 1 I+ 24; 
; 208 | 1} | : FUNCTIONAL DESCRIPTION: : it 
; 968 1 18 1} This routine is called when a new work-file window must be read into the ; 1; 
; 9 1814 1! ache. We find the least recently used window for replacement, and write ¢ 44 
; 970 1815 1 | t out. et 
; 971 1 1 1! 245 
; 3f6 : 44 | : FORMAL PARAMETERS: : ii 
[3 ore 1319 ! BUKT_NUM the number of the bucket which we need to put in the cache. ; Vi 
; 976 1831 1 ! IMPLICIT INPUTS: 3 33 
: 977 18 ¢ 1! : 13 
: 978 18 - CACHE _REF 2 33 
; 979 1824 1! CACHE DIRTY 3 33 
; 980 1825 1! 3 13 
; 981 1826 1 ! IMPLICIT OUTPUTS: ae 
; 1827 1! 3 3g 
; 98 1828 1! CACHE_TIMER ae 
> 984 1868 , CACHE _REF ae 
; «985 1830 1! CACHE_WINDOW 343 
; 986 1831 1! $ 13 
: 987 1836 1 ! ROUTINE VALUE: 3 33 
; 988 18335 1! | 3 43 
; 989 1834 1! The window number the bucket was allocated to. 233 
: 990 1835 1! 3 13 
: 991 1836 1 ! SIDE EFFECTS: Fa S| 
; 992 1837 1! 3 13 
; 993 1838 1! May call WRITE_WINDOW 313 
3; 994 1839 1! 3 19 
; 995 1840 1 !-- me 
; 998 1841 1 : 14 
; 997 1366 2 BEGIN 3 14 
; 998 1843 2 : 14 
; .999 1844 OCAL ; 14 
3 1000 1845 WINDOW_NUM, : 14 
; 1001 1846 OLD_TIME, 3 14 
: 1002 1847 ~NUM; i 14 
: 1003 1848 3 14 
3 1004 1849 ‘+ , eS ; 14 
; 1999 1330 : Determine which window the bucket is in. : iy 
: 1007 1838 WINDOW_NUM = (.BUKT_NUM = 1)/WINDOW_SIZE; : y 
3 Hs 64 H+ $33 IF (.WINDOW_NUM GEQ NUM_WINDOW) THEN WF_CACHE_FULL = 1; : iy 
3 1011 1856 IF .WF_CACHE_FULL 3 14 
3 1Ot¢ 1857 2 14 
; 101 1858 BEGIN : 14 
: 1014 1859 3! Br 
3; 1015 1860 ! Find the least secently used window in the cache. 3 14 
: 1016 1861 !e ; 14 
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14 
EDTSIOMOD = 1/0 for VAX/VMS 1b-3¢ -1984 00:35:3 VAX-11 Biiss-32 V4.0-74 P EoT! 
REPLACE_WINDOW = read a new window into the cac 1 ~3007 1387 90:33:78 DT SKSVMEMASTERSLEDT  SRCTIOMOD .832; 1 298 135, v04- 
; i 7 63 OLD_TIME = 999999999; / 
3 | 
i] 13 | o DECR I FROM NUM_WINDOW - 1 TO 0 DO r 
: 1021 1866 4 IF (.CACHE_REF {.1] LSSU .OLD_TIME) ‘ 
: 10 ‘ 1867 3 THEN vi ’ Y 
; 10 1868 4 BEGIN 4 
3 1024 1869 4 OLD_TIME = .CACHE_REF C.1]; , 
3 1025 1870 4 OLD-NUM = .I; , 
: 10 $ 1871 ; Y 
3 10 S76 & 
3 10 § 187 ASSERT (.OLD_TIME LSSU 999999999); 4 
10 0 : rg i ‘rite th k if it is di 
P4 4 rite e sucker out t Ss rty. 
: 1031 1876 § I~ . 4 
: 1938 1898 4 IF (.CACHE_DIRTY C.OLD_NUM] NEQ 0 
: CACHE _ Y C.OLD_NUM] N ) 
3: 1034 1879 3 THEN d 
: 1035 1880 4 BEGIN , 
3 1036 1881 4 WRITE_WINDOW (.OLD_NUM); 4 
3 1037 1882 END; , 
: 1038 188 4 
: 1039 1884 END 4 
: 194% 1888 sags NUM = NUM_WINDOW = 1 WINDOW_NUM i 
; _NUM = NUM_ -1-, W_NUM; 
: 104¢ 1887 4 
ieee SEES i ine, blade th bucket ta the cach | d 
Py ; Ow, ace the new bucket in the cache. 
+ 1045 1890 i. , | 4 
3 1046 1891 CACHE_TIMER = .CACHE_TIMER + 1; 4 
+ 1047 1892 CACHE-REF C.OLD_NUM)~= .CACHE TIMER; 4 
3 1048 189 CACHE WINDOW C.OLD_NUM] = .WINDOW_NUM; 4 
> 1049 1894 2 RETURN (.OLD_NUM); 4 
3; 1050 1895 1 ND; ! of routine REPLACE_WINDOW r 
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001C 00000 REPLACE_WINDOW: 
-WORD Save R2,R3,R4 : 1806 
54 00000000° EF 9 00002 MOV CACHE REF, R4 : 
Hesston, 4 GE a cre ser os 
00000064 aF 8 D1 G00ts CMPL WINDOW_NUM, #100 + 1854 
05 19 001 BLSS 1$ ; 
OFS «C4 01 00 0018 MOVL #1, WF_CACHE_FULL : 
B O1F4 C4 E9 00020 18 BLBC WF CACRE FULC, 5$ + 1856 
51 3B9ACSFF ef DO 00025 MOVL  #999999999, OLD_TIME : 186 
50 63 BF 9A 0002C MOVZBL #99, > 186 
51 6440 D1 00030 2s: CMPL ACHE_REFCI), OLD_TIME > 1866 
0 IF 0034 BGEQU : 
51 6440 DO 00036 MOVL CACHE REFLII. OLD_TIME > 1869 
: 50 DO O003A MOVL » OLB_NU + 1870 
F 20 F4 00 D 3$ SOBGEQ I. : 1866 
3B9ACOFF = RE 1 01 00 40 CMPL OLD_TIME. #999999999 + 187 
8? TF 0004 BLSSU 4 : 
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€ - 1/0 for VAX/VMS 16-50 -1984 00:35: VAX-11 Bliss-32 V4.0-74 Page 34 EDTS 

G find a bucket in the cache, or read it 1 ~8ep-19 4 99:33:43 DLEKSVMGMASTERSCEDT  SRCTIOMOD.832:1 . (14) | v04- 
:1 3 1896} XsBTTL “GET.WE 7 find a bucket in the cache, or read it in’ | 335 
: 1 1 1 ROUTINE GET“WF ( ' Find a bucket in the cache, or read it in : 15 
> 1054 1 38 1 BUKT_NUM, i The number of the bucket to locate 315 
s 1055 1899 1 BUF_ADDR, i Return the bucket's address here 3 35 
: 1 $ 1 9 1 REA i 1 = read from disk if not in cache 2 15 
3 3 1 1 ) : NOVALUE = 333 
3 1 8 19 ¢ 1 $ 15 
3; 10 1905 1 !44 $ 33 
; 1060 1308 1 ! FUNCTIONAL DESCRIPTION: s 15 
: 1061 1905 1! 3s 15 
; 1906 1308 ! } This routine finds a bucket in the cache, or reads it in if necessary. | : 13 
3 3 130% 1 ! FORMAL PARAMETERS: 5 35 
1088 1910 1 1 BUKT_NUM The number of the buck i l aE 
3 5 e number of the bucket we are trying to locate. 3 
mys) 1911 13 _— 115 
5 Hv 13\§ : : BUF ADDR Address of a longword in which the bucket's address is returned. : 13 
; 1070 1914 1! READ Flag indicating that we should read the file from disk if it 3 33 
3; 1071 1915 1! is not in the cache. ; 15 
3 1 1916 1! s 35 
3; 107 1917 1°! IMPLICIT INPUTS: s 15 
3 1074 1918 1! s 15 
: 1075 1919 1 CACHE_ADDR 315 
3; 1076 1920 1! s 45 
3; 1077 135! 1 ! IMPLICIT OUTPUTS: eb) 
; 1078 19 ¢ 1! s 15 
; 1079 1923 1! 10_WF_RAB, if READ = 1 3 33 
: 1080 19246 1! 10-STS and IO_STV, if READ = 1 = 3a 
3: 1081 1925 1! 3 15 
3 108¢ 1926 1 ! ROUTINE VALUE: 3 99 
3: 108 1927 1! 3; 15 
3 1084 1928 1! NONE Br 
: 1085 +49. 1! 3 33 
; 1086 1930 1 ! SIDE EFFECTS: 3 15 
: 1087 1931 1! s 49 
: 1088 1336 1! Calls FIND_WINDOW and REPLACE_WINDOW. 3 15 
3: 1089 1933 1! Never returns on 1/0 errors. $ 33 
: 1090 1934 1! $93 
3 1091 1935 1 !-- g 49 
3 1036 1936 1 $33 
3; 109 1937 BEGIN g 75 
3 1094 1938 3 13 
> 1095 1939 LOCAL | 7 15 
3 1096 1940 ALLOC_STATUS, it 
; 1097 1941 WINDOQ_ADDR, 393 
; 1098 1968 WINDOW"NUM; $ 43 
3; 1099 194 333 
; 1100 1944 '¢ et 
3: 1101 1945 ' First, see if it is in the cache. | a 33 
3 1198 1308 !- 3 73 
: 110 194 315 
3 110e ines IF (FIND_WINDOW (.BUKT_NUM, .BUF_ADDR) GEQ 0) THEN RETURN; : iF 
: 1106 1950 ‘+ 333 
3 110 1951 ' It's not, find a block to replace and read a block. , 1; 
+ 1108 1952 ie ; 15 
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711 1 

3111 1 

3111 1 

; 1136 1 

; 111 1 

3 1114 1 

3; 1115 1 

; aE 1 

3711 1961 4 IF ( NOT .ALLOC_STATUS) 

3 1333 1962 3 THEN 

7111 1963 4 BEGIN 

; 1120 1964 4 WF _ CACHE FULL = 1; 

: 1121 1965 4 WINDOW_NOM = REPLACE_WINDOW (.BUKT_NUM); 

311 ; 1368 END; 

3 31 196 

> 1124 1968 WINDOW_ADDR = .CACHE_ADDR C.WINDOW_NUMJ; 

; 1125 1969 ASSERT (. WINDOW ADDR NEQA 0); 

; 1126 1970 -BUF_ADDR = .WINDOW_ADDR + ((.BUKT_NUM - 1) MOD WINDOW_SIZE)*512; 
: 1127 1971 END 

3; 1128 1376 

; 1165 197 BEGIN 

: 1150 1974 ASSERT (.WINDOW_ADDR NEQA 0); 

H at 192? ; -BUF_ADDR = .WINDOW_ADDR + ((.BUKT_NUM = 1) MOD WINDOW _SIZE)*512; 
3 1+ 

3 1133 1977 ! Check to see if we should read it in. 

3: 1134 1978 fe 

3 1135 1979 

3; 1136 1980 ; IF .READ 

3 1137 1981 THE 

; 1138 1986 4 BEGIN 

3; 1139 1985 4 

> 1140 1984 4 IF ( NOT .WF_OPEN) THEN WF_OPN (); 

3 11461 1985 4 

: 1148 1986 4 10_WF_RAB RABSL _UBF } = .WINDOW_ADDR: 

> 114 1987 4 10-WF-RAB CRABS$W_USZJ = WINDOW SIZE*512; 

; 1144 1988 4 107WF-RAB CRABSL~BKT] = (.BUKT~NUM - 1)/WINDOW_SIZE*WINDOW_SIZE + 1; 
: 1146 1990 5 IF ( NOT (10_STS = $SRMS_READ (RAB = 10_WF_RAB))) 
3 1147 1991 4 THEN 

: 1148 13 4 

3 1149 1993 5 IF (.JO_STS NEQ RMS$_EOF) 

3; 1150 1994 4 THEN 

3; 1151 1995 5 BEGIN 

; 1136 1208 5 I0_STV = .10_WF_RAB CRABSL_STV); 

3; 115 1997 5 SIGNAL_STOP TEDTS_IOERRWRK, 0, .IO_STS, .10_STV); 
3 1154 1998 4 END; 

3 1155 1999 4 

3; 1156 000 ; END; 

3; 1157 001 

; 1188 Oe END; 

3 1159 00 < 

: 1160 004 END; ! of routine GET_WF 


-EXTRN SYSSREAD 


EDTS EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35: VAX=11 Bliss-32 V4.0-74 
104-000 GET_WF = find a bucket in the cache, or read it 1 300-1382 99:33:79 PL KSUMEMASTERSCEDT. SRCSIOMOD.B32; 1 
; 3 WINDOW_NUM = REPLACE_WINDOW (.BUKT_NUM); 
: WINDOW_ADDR = .CACHE_ADDR C.WINDOW_NUMJ; 
9 § IF ((.WINDOW_ADDR EQLA 0) AND NOT .WF_CACHE_FULL) 
3 THEN BEGIN 
9 ALLOC_STATUS = EDTSSALO_HEAP (ZREF (WINDOW_SIZE*512), CACHE_ADDR C.WINDOW_NUM]); 
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OMOD “ 35: -11 Bliss-32 V4.0-74 Page 36 
- 1/0 for VAX/VMS 18- ep-1984 : :3 VAX 1OMOD .832:1 aie | 
RS bo0 SPT ure tind a bucket in the cache, or read it 1 =30 71382 9923337 wopeapeigenriny CEDT shed } esi 
00 00 OE $69 GET WF: HOVAB SOTSSINfeR ERA. R6 : 
g Miitddittd F 9 $8 OVAB CACHE_ADDR; R5 : 
£ 5, : 1 SUBL2 #4, § S enen! 
E 06 =A iB 8} MOVQ  § BUKT_NUM, =(SP) : | 
FESO. —séCFF FB 0001 CALLS ne, FIND_ WINDOW : | 
' : D a9i¢ TSTL «6 : | 
os) a ee 
: KT_NUM ; 
FFSB OCF ™ of Pp $0 4 al CALLS i. REPLACE WINDOW 
5 6525 3 $0 c MOVE CACHE ADDREWINDOW. NUM]. WINDOW_ADDR : 1954 
“Leuceeel FSA a a a a Po pe 
5 3 i 29048 t8L WNDOW ADDR : sae 
3F 612 0004 3 
ACHE_FULL, 4$ : 
- — 6543 8 Soode BH SHAL CACHE ADBRLUINDGW_NUMI i ad 
04 AE 1600 8F 3¢ OO0E MOVZUL #563 > 4(SP) | 
06 =A ; 
#2, EDTS$$ALO_HEAP ; 
eaten 03 EB inetd gt bS er ot STATUS; : 1961 | 
3 34 5 0006 #1, WF CACHE_FULL : 1968 | 
aseed ine 04 AC ODD boos? PUSHL BUKT_N : 
FFIS = CF 01 FB 0006A CALLS ae REPLACE WINDOW ; 
a 6548 4 O0082 2$: Mov CACHE _ADDREWINDOW_NUM], WINDOW_ADDR : 1968 
$5 is SOOr8 atte #0, EDTSSINTER_ERR po 
08 BC $$ 54 C1 90078 3$: ADDLS R4, WINDOW_ADDR, @BUF_ADDR : 1970 
04 0 : 1974 
03 12 00081 4$: BNEQ 5$ ; 
, EDTSSINTER_ERR ; 
08 BC $8 22 tf itt 5$: ADDL Re GINDOU ADDR @BUF _ADDR ; 1975 
85 05% ts EB Mittd ates WF_OPEN, 6$ ; 1984 
4 FB 00094 CALLS #07 WF_OPN pee 
fSeo ks 98 DO 00099 6$: MOVL §§ WINDOW"ADDR, 10_WF_RAB+36 : 1986 
43 eT 1600 8F B0 0009 ; ovw #5050 710 WF _RAB+32 : 1987 
50 “— o? 01 Bg SOORE SuBL 3 AP BUKT RUM; RO : 
50 0B C6 OOOAA sii. RO 
O9F4 28 01 i SF $080 ROVAS (RO), 10_WF_RAB+S6 ; coe 
_ § 4 SOBA CALLS #17, SYSS$READ ; | 
veooa 00 50 09 00C1 MOVE RO. J9_sTs ; | 
ge 0A04 28 fi ite PAPE 10_sTS, #98938 : 1995 | 
Fecal (8 43 boone Han 10 WF_RAB+12, I0_STV > 1996 | 
— 7 Orbe 8 0008 mova 1OesTS, -(SP§* ead 
000000006 gf oD 3 PUSHL HEDTS JOERRURK ; | 
moopenens ‘ be apee 7$: gals , : wi 


04480 


; Routine Size: 


find a bucket in the cache, or read it 


Eptsi oD = 1/0 for VAX/VMS 


240 bytes, 


Routine Base: 


EDTSCODE + 0344 


H 1 
1823 


4 


871982 99:33:73 


DISkSVMSMASTER: CEDT SRC 


§10M0p .B32;1 
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14 
EDTSIOMOD 1OMOD = 1/0 for VAX/VMS hase -1984 00:35:33  VAX-11 Bliss-32 V4.0-74 Pa EDTS 
042000 SWF_RD = get new current work file bucket 14-Sep-19 4 99:33:49 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 9043 V04= 


ZSBITL ‘EDTSSWF_RD = get new current work file bucket’ 

GLOBAL ROUTINE EDTSS$WF_RD ( ! Get a new current work file bucket 
BUKT , ! The number of the bucket to read 
REC_BESC ' descriptor for record address 
) : NOVALUE = 

ee 
FUNCTIONAL DESCRIPTION: 
This routine is called get a new current work file bucket. The 
cache is searched, and if it is not there, a window is selected 
for replacement and the bucket is read in. 
FORMAL PARAMETERS: 
BUKT_NUM The number of the bucket to read. 


REC_DESC Descriptor containing address of a longword in which the address of the bucket 
is returned. 


MPOMOTUPINONINoNonofonononunonspnnrnn omm 
peewee lelelelolelololealeolelolololeololololo M1 ~] 


MMMM 2 2 SSS SSS OOOOO Ost 


FUN "OC OWDNAMNE WN (OOD NOUSWN (OO OONAUSWNOVOONOU wwe 


] 

8| 
: 

1 | 

i 

i 

i 

i 

! IMPLICIT INPUTS: 

; NONE 

i 

' 

i 

i 

£ 


ee ee ee ee ee ees 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Se Ge Be Se Se Se Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Oe Oe oe FH Se SF Se Ss Se Oe Se FH Se Se Ss Sees Se Se FH Se ee 


0 
: 
3s IMPLICIT OUTPUTS: 
03 NONE 
1 soe 
1 03 ROUTINE VALUE: 
1 203 
1 203 NONE 
1 soe 
1 03 SIDE EFFECTS: 
1 203 , 
1 soe Calls GET_WF with READ = 1. 
04 
1 04 - 
04 
04 BEGIN 
4 045 
$ 046 P 
Be bce REC_DESC : REF BLOCK C, BYTE); 
04 LOCAL 
09 050 BUF __ADDR, 
08 051 LEN; 
09 O36 
210 05 GET_wWF art! NUM, BUF_ADDR, 1); ! find address in cache 
211 054 REC“DESC CDSCSA_POINTER] = .BUF_ADDR; 
212 055 END; ! of routine EDTSSWF_RD 


ee ee ed ce ee we ee ee a ae ee ee ce ec ee ec eee ed ee ee ed ed ee ed ee ee eee ed ed ed ee we ee ee ed ed ed ad dd ded g 
RAARAAA AAA AAA AA AA AA AA AAA AA AAA AAAS AAAAOAAAAAAOOOOAOAAAAOAOOOCAO 


0000 00000 -ENTRY EDTSSWF_RD, Save nothing ; 2007 


ee DTS OF ORD 2 det nes corrant work file bucket 1b-2e0-1984 99:33:73 TSchimBhad fea 


5E 4 C2 

1 00 

4 AE OF 
4 AC DD A 
FEFE gf 03 FB 00000 
0 08 AC 00 00012 
04 Ad 6E 00 00016 
04 OOO1A 


; Routine Size: 27 bytes, Routine Base: _EDTSCODE + 0434 


; 1213 2056 1 


#4, SP 
#1 
BUF act 


ByKT NUM 
REC Dest RO 
BUF "ADDR. 4(RO) 


cbt °SRCSIOMOD. B32;1 


E 
V 


04 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


go 
uw 
of 


~NSSS SESSNSNENNE NNNA AA AAA AAAAAAOPHAHAOHAAOOAOSOAOOOOOOSAOAO MD 


fa NE or A lt, EE ' 
K 14 
EDTSIOMOD EDTSIOMOD - 1/0 for VAX/VMS 16-Sep-1984 35:3 VAX-11 Bliss-32 V4.0-74 Page 40 EDTS 
Oa O00 EDTSSPAR_FNAME = parse a file name 12-8 8-13be 99:33:33 DIEKSVMEHASTERSCEDT SRCTIOMOD.B32; 1 . as | v04= 
¢ 1315 a3 | RSBTTL "EDTSSPAR_FNAME ~- parse a file name’ 3 i 
31 i3 0 5 1 GLOBAL ROUTINE EDTSSPAR_FNAME ( ! Parse a file name ; 17 
: 1318 060 1 RAB i Address of the RAB ey 
> 1219 061 1 FILE_DESC, i descriptor of filename ey 
; 1220 806 1 RLF, ! 1 = use input file as a related file name 7] 
: 1221 63 1 DSK, i set if file can be renamed 217 
: ieee 064 1 STS, 1 RMS status 212 
3 1 . STV ' RMS stv word ; 17 
: 1224 28 1 )= 3 17 
3 1225 067 1 3 17 
3 3 § 6 ¢3 1 !e¢ 3 17 
H : 8 090 ! FUNCTIONAL DESCRIPTION: : 1 
: 1229 071 1: This routine parses a file name to determine if valid before 3 17 
; : ? B76 : later attempting an open. : Vy 
:1 32 074 1 | FORMAL PARAMETERS: : 17 
. % 075 1! 3 17 
g : $¢ ore ! RAB The address of the RAB to connect. ; Ve 
: 1336 2078 : FILE_DESC The address of a descriptor containing the filename 3 \? 
: \g38 soee ' ; RLF 1 = use the input file as a related file name (EXIT rather than WRITE) ; ve 
; H 2082 : DSK 1 flags renameable file (disk or DECtape). 0 otherwise 3 Vv 
; \stg $oac 1 /° sts The RMS status returned : 17 
3 124 2085 1! 3; 17 
> 1264 2086 1! STV The RMS stv word returned oe oF 
3; 1245 2087 1! : 17 
3 1246 2088 1! IMPLICIT INPUTS: = tr 
3 1247 2089 1! 3s 7 
3 1s68 2090 1! NONE s 17 
3 1249 2091 1! s 7 
3; 1250 209 1 ! IMPLICIT OUTPUTS: 3: 17 
3: 1251 2093 1! 3; 17 
i 1258 209% 1! 10_STS : 17 
3 \$2 2095 1! I0_STV : 17 
3: 1254 2096 1! s 17 
3; 1255 2097 1 ! ROUTINE VALUE: 
3: 1256 098 1! 
3; 1257 099 1! If successful, 1; if failed, 0. 
; 1528 100 1! 
3; 1259 101 1 ! SIDE EFFECTS: 
: 1260 $198 1! 
3 \<0) Ht ’ Passes back a ‘1° in DSK if this file can be renamed 
: 1268 105 i-- 
F 1365 109 BEGIN 
F 1267 109 P | 
: 1508 139 FILE_DESC : REF BLOCK C, BYTE); 
; 1599 gi12 LOCAL 
3; 1271 11 FN 


A, | 


POPQIPUPOPUPIPIPONPOPOPPOPPoforforng 
SOO NS nt 
w —Ov0®w Wise 


3 3 114 
3 3 115 
2 119 
71 1 3 
5 3 1 

3 Y 120 
i i 
: 71 1 

3 1 124 
s 3 125 
3 159 
3: 1286 128 
: 1287 129 
3; 1288 130 
3 1¢8? 131 
3; 1290 21 ; 
3: 1291 213 
3: 1292 21 r 
; 1337 $i 

3 1294 136 
3 1295 137 
3 1538 138 
3 1297 139 
3; 1298 140 
: 9.4 141 
3; 1300 $i6¢ 
: 1301 214 
3; 1302 2144 
3 1303 2145 
3: 1304 2146 
3; 1305 2147 
3; 1306 2148 
3: 1307 2149 
3; 1308 $120 
3: 1309 151 
3; 1310 $126 
3 1311 215 
3 131g 2154 
3 131 155 
3 1314 156 
: Iai? 157 
3; 1316 158 
3 1317 159 
3 1318 2160 
: 1319 2161 
3; 1320 $166 
1353 184 
3 135 165 
3 3 4 166 
3 1325 167 
3: 1326 168 
3: 1327 169 
3: 1328 170 


BEEK PALMA AIG PIPNINININININININININININININIWIWW 


OMOD = 1/0 for VAX/VMS 1B-5¢ Sep-19 35 VAX-11 tH ss-32 V 
PAR_FNAME = parse a file name 308-1382 99: 33: +3 DISKSVMSMASTER: cto 1°sRCS10MOD. B32; * (1 
RSA, 
RSL, 
FNS, 
WORK_FAB FAB_DECL, 
RELAT_NAM : $NAM_DECL, 
NAM_BCOCK : SNAM_DECL; 
FNA = .FILE_DESC CDOSCSA_POINTERI; ! get file name 
FNS = .FILE_DESC CDOSCSW-LENGTH); ! and its length 


14 
Initialize the NAM block. 

SNAM_INIT (NAM = NAM_BLOCK, ESA = MYBUF, ESS = MIN (255, NAMSC -MAXRSS)); 
! Set up the related name from the input file, if requested. 
IF .RLF 
THEN 

BEGIN 

SNAM_INIT (NAM = RELAT_NAM, ESA = Bay Ae ESS = 

RELAT_NAM CNAMSB_ RSL] = .INPUT_NAME_LEN; 


SSTRACE (EDT$S$TR-OFO, EDTSSTR_ SOO. RLNAM, 
NAM_BLOCK CNAMSL-RLF4 = RELAT- 


NAMSC_MAXRSS, RSA = 
.RELAT_NAM CNAMSB_RSLJ, 


INPUT_NAME, RSS = 


‘4 

1 Setup the FAB 

SFAB_INIT (FAB = p NOOK FAR. FOP = 
WORK_FAB CFABSL_FNA] = .FNA; 

. WORK_FAB CFABSB_ ENS = 

Attempt the parse, set up the status and return 


IO_STS = $RMS_PARSE (FAB = WORK_FAB); 
IO-STV = .WORR_FAB CFABSL_STVJ;~ 


IF .10_STS 

THEN 

- BEGIN 

=! Is this a renameable device? 


<OFP>, NAM = NAM_BLOCK); 


IF pif ete FAB CFABSL_DEV] AND DEVS$M_FOD) NEQ 0) ' File oriented device 
(.QORK_FAB CFABSL_DEV AND DEVSM_RND) NEQ 0) ! Random access device 
AND tC WORK “FAB CFABSL_DEV) AND DEVSM_IDV) NEQ 0) ' Open for input 
AND oe WORK-FAB CFABSL-DEV) AND DEVSM"SQD) EQL 0) ' Not a magtape 
we s (.NAM_BLOCK CNAMSC_FNB) AND NAMSA_PPF) EQL 0)) ! Not a process permanent file 


"BEGIN 
+ 


i If the file type is .TMP we shouldn't do the rename, since. that will 
i cause the version number to be incremented by two, and won't help 
% the problem of purging a partial file after a crash. 


as 


NAMSC_MAXRSS); 


.RELAT_NAM CNAMSL_RSAJ); 


M14 
EDTSIOMOD EDTSIOMOD - 1/0 for VAX/VMS 16-Sep-1984 235:3 VAX=-11 Bliss-32 V4.0-74 & 4 | 
tbe EDTSSPAR_FNAME = parse a file name 13-88-1382 9033333 NT EKSUMEHASTERS LED SRCTIONOD .832;1 age 465 
> 1329 171 4 | 
i 1330 We 9 IF _(.NAM_BLOCK CNAMSB_TYPE] EQL 4) | 
|} re — | 
3 1334 126 IF CHSEQL (4, .NAM_BLOCK CNAMSL_TYPEJ, 4, UPLIT (BYTE ('.TMP’)), 0) 
: i 2 138 vias DSK = 0 
: 18 23 3 Ae | 
3; 3 3 181 2 
: 1340 1 : 5 END 
> 1341 183 4 ELSE 
: 1 ae 184 4 .DSK = 1; 
: 134 185 4 
> 1344 186 4 END 
> 1345 187 3 ELSE 
: 1346 188 3 .DSK = 0; 
: 1347 189 
: 1348 2190 4 IF (.NAM_BLOCK CNAMSB_ESL] NEQ 0) 
> 1349 191 3 THEN 
: 1350 g19¢ 4 BEG! 
: 1351 193 4 RSL = .NAM_BLOCK CNAMS$B_ESL]; 
; 133¢ 194 4 RSA = .NAM-BLOCK CNAMSL~ESA): 
3 135 195 4 STRING_ Dest e FILE_DESC> RSL, ! get resultant filename 
> 1354 2196 3 END; 
: 1355 2197 3 
: 1356 2198 2 END; 
: 1357 3199 2 
: 1358 200 : .STS = .10_STS; 
: 1359 2201 -STV = .107STV: 
: 1360 2208 2 RETURN (.10_STS); 
; 1361 2203 1 ND; ! of routine EDTSSPAR_FNAME 
0044F .BLKB 1 
50 4D 54 2€ 00450 P.AAC: ASCII \.TMP\ ; 
.EXTRN SYSS$PARSE 
03FC 00000 ENTRY EDTSSPAR a Save R2,R3,R4,R5,R6,R7.RB,- ; 2059 
59 00000000" EF 9E 0000 MOVAB 19 STS ; 
5 FEEC CE 4 000 MOVAB mesh)” "Sp : 
56 8 AC D 90006 MOVL  FILE_DESC, R6 > 2121 
58 04 Ab v0 0001 MOVL  4(R6J, FNA : 
57 66 3C 00016 MOVZWL (R6), FNS : 132 
0060 8F 00 6E ss 00 2c 0019 MOVCS #0, (SP), #0, #96, SRMS_PTR > 2126 
04 AE 6002 = BF 80 8 MOVW #24578, SRMS PTR : | 
OE AE 01 8E 00028 MNEGB fi. SRMS_PTRT10 ; 
10 AE FBIC 3=— C9 3 00 ¢ MOVAB MYBUF Sans” PTR+12 : 
2E oc AC 5 0 BLBC ; 3131 
0060 28F 00 6£ a. 00 C 6 6 MOVCS » (SP), #0, #96, SRMS_PTR > 2134 
64 AE 6002 8F BO 0003F MOVW #24578, $RMS_PTR ; 


N 14 | 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-19 :3 VAX-11 Bliss-32 V 4-0 Page 43. 
v04-000 EDTSSPAR_FNAME = parse a file name 14- =8ep 1 1986 99: 33; " DISKSVMSMASTER: ct SRCTIOMOD. B32;1 . (16) 
66 «AE 01 gE 045 MNEGB SRMS_PTR+2 : 
68 AE FDIC c9 E 049 MOVAB ‘bur NAME, SRMS_PTR+4 : 
6— AE 1 gE GF MNEGB i SRMS_PTR+ +10, : 
70 «=A FcIc. = C9 : 053 MOVAB MYBUF 2. SRMS_PTR+12 : 
67 AE FEIC §=6C9-—- 90: (00059 MOVB NPUT_NAME “LEN, nRELAT NAM+3 + 2135 
146 «AE 64 AE 3E 005F MOVA RELAT NAM, AM BLOCK K+T6 : 3137 
0050 8F 00 6E ‘ 00 ¢ 0064 1$: movcsS #0, (SP), "0, #80, $RMS_PTR + 2143 
BO AD 5008 8F B0 2006p MOVW #204 $7 $RMS_PTR : 
B4 AD 20000000 BF D0 00 MOVL 6 7O9i2. ants PTR+4 : 
C6 AD ; 30 0078 MOVB a. ; 
CF AD 02 90 0007F MOVE # Same7P +9 : 
D8 Au 04 af 9E 00083 MOVAB NAA BLOCE. "sans PTR+40 : 
DC AD 58 00 00088 MOVL FNA> WORK_FAB+4% + 2144 
£4 AD 57 90 0008C MOVB ENS WORK “FAB+52 + 2145 
BO AD 9F 90090 PUSHAB WOR FAB + 2149 
000000006 00 01 FB 0009 CALLS  SYSSPARSE : 
69 50 DO OO09A MOVL RO. 10 : 
04 a9 BC AD DO 0009D MOVL WORK Ora ri2, 10_STV : 2150 
48 69 £9 0002 BLBC 10 : 2152 
28 FO AD OE £1 000A BBC #1%, WORK_FAB+64, 3$ : 2159 
23 FO AD 1€ £1 OOOAA BBC 4 8; WORK-FAB+64, 3$ + 2160 
1E FO AD 1A £1 OOOAF BBC #26, WORK 7h Abs64. 3$ > 2161 
19 FO AD 05 £0 000B4 BBS # WORK -FAB*6 ; g16¢ 
14 38 AE 10 £0 00089 BBS #16, Btesg2° 3$ : 216 
04 40 AE 91 0008 CMPB sé *atocks 50. ai : 2172 
08 12 000C BNEQ ; 
FF32 OCF 54 BE D1 000C4 CMPL § @NAM_BLOCK+80, P.AAC : 2176 
06 13 OOOCA BEQL : 
10 BC 01 pO 000CC 2s: MOVL #1, aDSK > 2184 
03 11 00000 BRB 4$ : 2159 
10 BC D4 000D2 3s: CLRL  aDSK : 2188 
OF AE 95 00005 4$: TSTB = NAM_BLOCK+11 : 2190 
16 13 90008 BEQL ; 
6 OF AE 9A OOODA MOVZBL NAM_BLOCK+11, RSL : 2193 
50 10 AE DO O00DE MOVL _NAM-BLOCK+12, RSA + 2194 
50 DD 900E¢ PUSHL RSA™ > 2195 
04 AE 9F O00E4 PUSHAB RSL ; 
56 DD OO0E7 PUSHL RG F 
000000006 00 03 FB 000E9 CALLS #3, STRSCOPY_R ; 
14 BC 69 DO OO0FO S$: MOVL 10.STS, aSTSs : 2200 
18 «BC 04 Ad DO O00F4 MOVL IO7STV, aSTV + 2201 
50 69 DO 000F9 MOVL 107STS, RO + 2202 
04 OOOFC RET : 2203 
; Routine Size: 253 bytes, Routine Base: _EDTSCODE + 0454 


; 1362 2204 1 


<m 
oo 
> 

in 


ee ee ee ee ee ee ee ee ee ee ee ee 
6 0 OHHH OOOOO O00 OM NAINA NNN SNS SSNS SSS SSS SSS SSS 
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a 44 
N_IFIDEF = Open a file for input by nam 14- DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 (17) 
ZSBTTL ‘EDTSSOPN_IFIDEF = Open a file for input by name and default name’ 


GLOBAL ROUTINE EDTSSOPN_IFIDEF ( ' Open a file for input by name and default name 
! Address of the RAB 

FILE_DESC, ' descriptor of filename 
DNA, ! Address of the default name string 
DNS, : yenets of the default name strin 
RLF, ! 1 = use input file as related file 
| 
| 
| 


v 


3 7 
3 3 
3 1 
3) 
3 
3 7 
3 1 
3 3 
3; 1 
3 1 
3} 
3 7 
; 1 
3% 
3; 7 
3} 
3% 
3 7 
3 3 
3 3 
3 7 
3 7 
3 7 
3 7 
3; 7 
3} 
3 Y 
3 3 
3 7 
3 3 
££ 
3 7 
; 7 
3% 
3 1 
, % 
3 7 
3} 
3 7% 
3 7 
3 
3 ¥ 
3 
8 
3 3 
; 7 
3 7 
3 7 
3; 7 
es. 
3 7 
3; 
5 7 
3 7 
3; } 
3 
3 3 


B 15 
OMOD = 1/9 for VAX/VMS 16-Sep-1984 00:35:33  VAX=11 BLiss-32 v4.0-74 p 
$0 o-8ep-1984 90: 3849 H Pt ge 
i 


STS, ! RMS status 

STV, ' RMS stv word 

: 1 = this file has sequence numbers 

! 1 = this is not a ‘standard’ text file 


| 
144 
: FUNCTIONAL DESCRIPTION: | 


This routine opens a file for input using a name string and default 
name string. 


FORMAL PARAMETERS: 
RAB The address of the RAB to connect. 


WONAOULS WN —O 


FILE_DESC The address of a descriptor containing the filename 


% 


i 
i 
i 
i 
i 
i 
' 
i 
DNA The address of the default name string. 

DNS The length of the default name string. 

RLF 1 = use the input file as a related file 
! 
} STS The RMS status returned | 
i stv The RMS stv word returned | 
VFC returned as 1 = this file has sequence numbers, 0 = it doesn't | 
| 
' 

i 

i 

i 

i 

i 

i 

i 

i 

1 

i 

i 

i 

i 

i 

i 

i 


WNW 
DODO 
FEANLS 


NONSTD returned as 1 = this file is not a standard text file, 0 = it is 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: | 


10_STS | 
10-STV | 
| 


ROUTINE VALUE: 

If successful, the IFI; if the open failed, 0. 
SIDE EFFECTS: 

NONE 


LESRENLSSSLS 


oon 


ee ee ee ee ee ed ee ed ee ee ed ed ee ee ee ee ee ed ee ce ee el ee el el el el el el cel eel el el cl eel el el el el el el cl el el eel eel eel el eel eel cel eel eel 
me ek kk et ak st et st SS Ss SH) PS SY HH YH SH SH SH SS Ss SS Ss SS ss SS SS Ss Ss — Ss SS SS SS SS GS Ss Ss Ss Ss > SS OH YH OL 


5 et ek et et et el et ke ek eked ak a kk a hh 


SOOONOUESWN—O 


POPINPGNINININIDNYPINYPINNPYININININININININININYININPININIPUNIPONONNNPNYNAY: 
Be Pe Se Be Se Be Se Be Bs Se Be Se Se Se Se Se Ge Be Ge Be Fe Se SH Ge Ge Ge Se Se Ge Se Se SH Se Ge Se SH Se Se Se Se Se Se Se Se Se Se sess Se Se Se Se Se Se Se tease 


et OOO 


XABPRO : SXABPRO _DECL, 
WORK_FAB : $FAB_DBECL, 
RELAT_NAM : $NAM DECL, 

NAM_BCOCK : SNAM_DECL; 


FNA = .FILE_DESC CDSCSA_POINTER]; ! get file name 
be FNS = .FILE_DESC COSCSW_LENGTH); ! and its length 


Z Initialize the NAM and XAB blocks. 
" $NAM INIT (Wan NAM BLOCK, ESA = MYBUF2, ESS = MIN (255, NAMSC_MAXRSS), RSA = MYBUF, ' 

RSS = N (255, RARSC MAXR $$)); 
SXABPRO_ Int (XAB = XABPRO); 
Setup the FAB and RAB 
SSTRACE CEDTSSTR -1F0. EDTSSTR SIFO + .FNS, .FNA); 

(FAB = AB, FAC = <GET>, RAT = CR, RFM = VAR, FOP = <SQ0, OFP>, MRS = 255, SHR = GET, 

he XABPRO) ; 


R FNA NA; 
WORK~FAB pret = .FNS; 
SRAB INI we ® -RAB, RAC = SEQ, ROP = <LOC, RAH>, UBF = MYBUF, USZ = 255, FAB = WORK_FAB, RHB = VFCHD, 


OMOD = 1/0 for VAX/VMS 16-50 -Sep-1984 :3 VAX-11 Bliss-32 V Pp 4 
SOPNO IFDEF - Open a file for input by nam 1 ~8ep-1984 1 93: 33: +3 DISKSVMSMASTER: tt BT” She 10MOD .B32;1 me 
1 I< | 
BEGIN | 
p 

PILE DESC : REF BLOT’ C, BYTE], 

RAB = REF $RAB_DECL. | 
LOCAL 
FNA, 
RSA, 
RSL, 
FNS 


14 
a Move in the default name string. 


tho ( the ty hh eoreste SIFO_DNAM, .DNS, .DNA); 
WORK_FAB CFABSL ~~ = .DNA; 
2 WORK_FAB FABSE- px = [DNS: 
Set up the related name from the input file, if requested. 
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IF_.RLF 
3 ea GIN 
70 aye INIT (NAM = RELAT_NAM, ESA = Ay Ae ESS = NAMSC_MAXRSS, RSA = INPUT_NAME, RSS = NAMSC_MAXRSS); 
71 RELA ese RSL] = .INPUT_N LEN; 
ue setaaee (EDT$$TR_OFO, EDTSSTR_ sor0 RLNAM, «RELAT_NAM CNAMSB_RSL], .RELAT_NAM CNAMSL_RSA]); 
7 NAM_BLOCK CNAMSL-RLF 4) = RELAT~ 
74 END; j 
75 
76 '¢ 
77 i Attempt the open and then the connect, setting up the status and STV 
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D 15 
D - 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX-11 Bliss-32_ V4.0-74 
PN_IFIDEF = Open a file for input by nam 13-808-1 382 90:33:49 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 
} if either of them fails. 
SSTRACE (EDTSSTR IFO, EDTSO TR Site BPN STS, ZUPVAL, WORK_FAB CFABS$L_STS]) 
SSTRACE (EDTSSTR-IFO, EDTSS$TR-SIFO-OPN-STV, XUPVAL, WORK~FAB Fapst-St¥3); 
If .10_STS 
THEN 
RSL = .NAM_BLOCK CNAMSB_RSLI; 
STRING_DESC (.FILE_DESC> RSL, MYBUF); 
ELSE 
BEGIN 
IF (.NAM_BLOCK CNAM$B_ESL] NEQ 0) 
THEN 
BEGIN 
RSL = .NAM_BLOCK Seine tite 
RSA = .NAM-BLOCK CNAMSL_ESAJ; 
sIRING_DESt (.FILE_DESC, RSL, .RSA); ! get resultant filename 


END; 


'¢ 
! If this is the first time, remember the input file name so we can 
use it as a related name. 


on NOT .ATTRIBUTES_SET) AND ( NOT .ATTRIBUTES_DEFAULTED)) 


BEGIN 
INPUT_NAME_LEN = .FILE DESC COSCSW_LENGTH); 
cNSAOTE (. INPUT_NAME_LEN, .FILE_DESC COSCSA_POINTER], INPUT_NAME); 


IF .10_STS 
THEN 
BEGIN 
SSTRACE (EDTS$STR_IFO, EDTSS$TR_SIFO_OPN_IFI, 2, WORK_FAB CFABSW_IFIJ); 
10_STS = $RMS CONNECT (RAB = 7RAB); 
SSTRACE (EDT$STR_IFO, EDT$$TR_SIFO.CON_STS, XUPVAL, RAB CFABSL_STS)); 
SSTRACE (EDTSSTRIIFO, EDT$$TR-SIFO-CON-STV, X%UPVAL, RAB CFABSL~STVJ): 


IF .10_STS 
THEN 


'¢ 
} Succeeded, return the IF] 


BEGIN 
SSTRACE (EDTS$TR_IFO, EDTSS$TR_SIFO_RNAM, .NAM_BLOCK CNAMSB_RSLJ, .NAM_BLOCK CNAMSL_RSA]); 
; SSTRACE (EDTSSTRIIFO, EDT$STR-SIFO-CON_ISI, 2> RAB CRABSW_ISIJ): 
Get the record format, so we know if it has a VFC field or not. 
. the PRN bit is set, the file is not considered a VFC file, since 


' 
i 
i 
! the information in the record prefix is not a Line number. 
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EDTS EDTSIOMOD = 1/0 for VAX/VMS 16-50 p-19 VAX-11 Bliss-32 V Page 47 
V *h00 EDTSSOPN_IFIDEF = Open a file for input by nam 1 Haat 99: 33:4 Disk KSVMSMASTER: cto + °SRCS1OMOD. B32;1 . | 
Ea ie 
4 ee CFABSB_RFM] EQL FABSC_VFC) AND ((.WORK_FAB CFABSB_RAT] /ND FABSM_PRN) EQL 0)) 
rs -VFC = 1 ! This file has sequence numbers 
40 1 ELSE 
ig 58 -VFC = 0; ! This file does not have sequence numbers 
4 4 '¢ | 
re} 8? i Check the file's attributes to see if it is a ‘standard’ text file. 
rf iH -NONSTD = 0; 
48 89 IF (WORK FAB CFABSB_RFM] NEQ FABSC_VAR) AND (.WORK_FAB CFABSB_RFM] NEQ FABS$C_VFC)) 
4 331 -NONSTD = 1; 
2¢ 393 IF (.WORK_FAB CFABSB_RAT] NEQ FABSM_CR) THEN .NONSTD = 1; 
32 4 IF (.WORK_FAB CFABSB_ORG] NEQ FABSC_SEQ) THEN .NONSTD = 1; 
56 
57 
35 
9 Cen NOT .ATTRIBUTES_SET) AND ( NOT .ATTRIBUTES_DEFAULTED)) 
o¢ 40 BEGIN 
6 404 ATTRIBUTES_ SET = 


at 


a INPUT_PROT~= T aBPhO CXABSW_PROJ; 
; If PRN format, make the output CR format. 


a -WORK_FAB CFABSB_RAT] AND FABSM_PRN) NEQ 0) 


MOMIMONIPONINOTY 


FS SS OF oe oy oy ot ot ot ot at at ee eee ee 


WINoRonononononononony 2 4 3 = O00 


BEGIN 
INPUT_RAT 
INPUT_RFM 


(WORK FAB CFAB$B_RAT] AND NOT FABSM_PRN) OR FABSM_CR; 
FABSC_QAR; 


INPUT_RAT 
INPUT _ =RFM 
END; 


-WORK_FAB CFABSB_RATI; 
-WORK-FAB CFABSB_RFM); 


SS sao RON SSSI 


INPUT_MRS = MIN (.WORK_FAB CFABSW_MRSJ, 255); 
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NYSSSVEVRULSSane nrunw =osene 


58 IF (.INPUT_MRS EQL 0) THEN INPUT_MRS = 255; 
5 END; 

8 .STV = .10_STV; 

88 .STS = ,107STS; 

89 RETURN (.WORK_FAB CFABSW_IFIJ); 

90 END 


ELSE 


1+ 

} If this is the first input open, remember the file's attributes. 
| 
| 
| 
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EDTS EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX=11 | 
tbe shed EDISSOPR IF 1DEF = Open a file for input by nam 19-808- 1382 90:33:98 DISKSVMSMASTER: LEDT.SRCJIOMOD.B32;1 (17), 
:} 3 4 ; 10_STV = .RAB CRABSL_STV] | : 3 
: 1594 435 END | 3 ot 
: 1595 4 6 ELSE | : et 
; i 36 4 i 10_STV = .WORK_FAB CFABSL_STVI; | : 
: : 
: 1598 439 2 t+ > 2 
; Fa +4 ret ; Failed, return 0 and set input attributes = default atttributes | ‘ 
: 1601 44g ATTRIBUTES_DEFAULTED = 1; ; 3 
; 1608 44 .STV = .1O7STV; | 2 ef 
: 16 644 .STS = .107STS; 
: 16 445 RETURN (0)? | 
: 1605 646 1 END; ! of EDTSSOPN_IFIDEF | 
.EXTRN SYSSOPEN | 
03FC 00000 ENTRY EDTSSOPN.IFIDEF. Save R2,R3,R4,R5,R6,R7.R8,-; 2207 
59 00000000" EF 9E 00002 MOVAB I10_STS, R9 : 
3E FE94 CE 9E 00009 MOVAB -364(SP), SP ; 
5 AC DO 00005 MOVL  FILE_DESC, R7 + 2280 
58 04 A? 00 0001 MOVL 4(R73, FNA : 
56 67 3C 00016 MOVZWL (R7), FNS + 2281 
0060 8F 00 6E “i 00 2c 90019 MOVCS #0, (SP), #0, #96, S$RMS_PTR : 2286 | 
04 AE 6002 8F BO 00022 MOVW #24578, $RMS_PTR : 
06 AE 01 8E& 00028 MNEGB #1, $RMS_PTRF2 ; 
08 AE FBIC C9 9E 0002C MOVAB MYBUF, $RMS_PTR+4 : 
OE AE 01 BE 99 2 MNEGB #1, SRMS PTR+1 : 
10 AE FCIC §=6C9 «SE (00036 MOVAB MYBUFZ, SRMS_PTR+12 ; 
0058 8F 00 6E i 00 2¢ 9005¢ MOVCS #0, (SP), #07 #88, S$RMS_PTR ; 2287 
ABS AD 5813 8F BO 00045 MOVW #22547, SRMS_PTR : 
0050 «BF 00 6E ied 00 2¢ 90048 MOVCS #0, (SP), #0; #80, SRMS_PTR ; 2293 
FFS8 CD 500 F BO tikes MOVW #20483 $RMS_PTR : 
FF5C CD 20000040 8F D0 0005¢ MOVL  #536870976, SRMS_PTR+4 : 
FFOE CD 920 8F BO 0006 MOVW #514, $RMS_PTR+ : 
FF76 CD 0202 = 8F 80 006 MOVW #514. $RMS"PTR+ ; 
FF7¢ 36s CD AS AD 9E On MOVAB XABPRO, $RAS PTR+36 ; 
80 AD 04 AE 9E 07 AB NAM_BLOCK, $RMS_PTR+40 : | 
—E AD FF F 9 3 MOVZBW #255, SRMS_FTR+ ; 
84 AD 8 00 008 V FNA, WORK_FAB+4 > 2294 
8C AD 56 90 00087 MOVB FNS, WORK-FAB+52 : 2295 
56 04 AC BO 008B MOVL RAB, R + 2297 
0044 8F 00 Af 00 C 0008F MOVCS #0, (SP), #0, #68, (R6) 
4401 er 80 $099 MOVW #17409, (R6) : | 
04 Ab 00010200 BF pO 909¢ HOV #66048, 4(R6) | 
0 Ab FF 8F 9B OOOA7 MOVZBW #255 33(R6) : | 
4 Ab FBIC }6C9sO9E OAC MOV MYBUF, 36(R6) ; 
C Ab 08 AD 9E 0008 MOVAB VFCHD, 44(R6) : | 
C Ab FF CD 9E 0008 MOVAB WORK_FAB, 60(R6) ; | 


| 
EDTS EDTSIOMOD = 1/0 for VAX/VMS 18-5¢ Sep-1 :3 VAX-11 Bliss-32 V Page 49 ET! 
SOu2000 EDTSSOPN_IFIDEF = Open a file for input by nam 1 Hat 7 99: 33 +3 DISKSVMSMASTER: tt Bie OFRCSIOMOD. B32;1 = (17). V04- 
88 AD of AC p B MOVL DNA, WORK_FAB+4 : 502 
D AD 19 aC c nove DNS. WORK FAB+5 : 303 | 
0060 &8F 00 gf ‘ 00 5? oc MOVCS ab, (SP), #0, #96, $RMS_PTR + 2311. 
64 «AE 6083 ef 0 D4 MOVW #24578. SRMS_PTR : | 
66 AE 1 BE OOODA MNEGB 3 : 
68 AE FDIC }=—C9.—s« SE.«OODDE MOVAB ‘nbure NAME SRMS_PTR+4 : | 
$ AE 01 gE OE. MNEGB #1, S$RMS_PTR +10 : 
AE FcIc | ¢9 F OE8 MOVAB MYBUF SRS P R+12 : 
6 AE FEIC C9 90 OQOOEE MOVB INPUT_NAME Wren. RELAT_NAM+3 3 2312 
14 «AE 64 AE 9E OOF, MOVAB RELAT “NAN. “NAM. BLOCK+T6 : 314 
FF58 CD 9F OO0F9 1S: PUSHAB WORK + 2321 
000000006 00 gi FB OOOFD CALLS , SYSSOPEN : 
69 0 D0 0104 MOVL 10_ : 
OA 69 E 107 BLBC 10°STS; + 2325 
6E 07 AE 9A 0010A MOVZBL NAR BLOCK+3, RSL + 2328 
FBIC «=6C9sOOF 00105 PUSHAB MYBOF + 2329 
OF 11 oor BRB 3 : 
OF AE 95 00114 28: TSTB NAM_BLOCK+11 + 2334 
16 13 00117 BEQL 4$ ~ : | 
a4 OF AE 9A 00119 MOVZBL NAM_BLOCK+11, RSL + 2337 
50 10 AE DO 00110 MOVL | NAMTBLOCK+12, RSA : 2338 
50 DD 00121 PUSHL RSA : 2339 
04 Ag 9F 00123 3$: PUSHAB RSL ; 
57 DD 00126 PUSHL RY : 
000000006 09 03 FB 00128 CALLS TRECOPY AR ; 
1 FE30 «C9.s«EB OO12F 4S: BLBS rrtal IBUTES_SET, 5$ t 2349) 
OE FE34 C9 F8 01 LBS ATTRIBUTES “DEFAULTED, 5$ ; 
FEIC §3=—C9 67 3C 00139 MOVZWL NAME_LEN + 235 
FDIC. = 9 04 «87 FEIC §=6C9s 28 (001 5 MOVC3 INP put han €_CEN, 50(R7), INPUT_NAME : 235 
03 69 8 00147 5$: BLBS  10-STS, 6$ : 2356 
00B4 31 O014A BRw 188 ; 
56 DD 00140 6$: PUSHL R6 : 2360 
000000006 00 or FB 0014F CALLS #1, SYSS$CONNECT : 
69 0 DO 00156 MOVL RO, I0_STS ; 
03 69 & 00159 BLBS 10 .STS> 7$ > 2364 
0098 31 0015¢ BRW 178 : 
51 FF77 cD 9a 0015F 78: MOVZBL WORK_FAB+31, R1 : 2378 
03 1 91 00164 CMPB RI. B3 : 
O¢ iF 00167 BNEQ : 
06 FF76 «CD 2 €0 00169 BBS i. WORK. FAB+30, 8$ ; 
20 BC 01 DO O016F MOVL #1. aVFC™ : 2380 
03 11 0017 BRB F 
20 BC D4 00175 8$: CLRL = aVFC : 2382) 
4 Bt D4 O17 9$: CLRL  @NONSTD : 2387 
02 1 91 00178 CMPB Rk, #2 : 2389 
09 13 0017 BEQL 1o$ ; 
03 1 91 001 CMPB 3 ; 
04 13 001 BEQL 108 ; 
24 «BC 1 po 1 MOVL @NONSTD > 2391 
50 FF76 cp A 00189 10$: § MOVZBL Coane MAbs 30, RO > 2393 
02 0 91 0018 CMPB B F 
24 «BC St , 193 Bove @NONSTD : 
FF75 CD 8 $133 11$: TSTB Ug FAB+29 > 2395 
04 13 00198 BEQL ; 


10 
FE20 869 


; Routine Size: 536 bytes, 


; 1606 


2447 1 


OPN_IF DEF 


Jone - 1/0 for VAX/VMS 
- Open a file for input by 


24 


Routine Base: 
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8E 
FF 
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04 
FFSA 
oc 
FF64 
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c9 
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pa19b¢ 19:28:19 DISKSUMSMASTER:CEDT 


#1, @NONSTD 
ATTRIBUTES_SET, 16$ 
ATTRIBUTES-DEFAULTED, 16$ 
#1, ATTRIBOTES SET 

8, _INPUT_PROT 


m3. RO, INPUT_RAT 
#2, INPUT_RFM 


RO, INPUT_RAT 
WORK BAB+54, RO 
RO, #25 

15$ 


#255, RO 
RO, INPUT_MRS 


1 
#255, INPUT_MRS 
10_Stv, ast? 
107STS, asTS 
WORK_FAB+2, RO 


12(R6), 10_STV 
WORK_FAB+12, I0_STV 

#1, ATTRIBUTES_DEFAULTED 
10_STV, aSTV 

lorsts. asTs 
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EDTSIOMOD EDTSIOMOD - 1/0 for VAX/VMS 14-82 -1984 00:35:3 VAX-11 Bliss-32 V4.0-74 Page 51) 
Ou 2000 EDTSSOPN_INOUT = Open a file for input and out 1e-8ep-19 4 90:33:49 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 . 18) | 
5 10% t¢8 } ZSBTTL "EDTSSOPN_INOUT = Open a file for input and output by name and default name' 
5 1610 450 1 GLOBAL ROUTINE EDTSSOPN_INOUT ( ! Geen a file for input by name and default name 
: 1611 451 1 AB ' Avuress of the RAB 
; 161 436 1 FILE_DESC, i descriptor of filename 
> 161 453 1 DNA, ' Address of the default name string 
3 1614 454 1 DNS, ' Length of the default name string | 
: 1615 455 1 STs, ' RMS status 
$ 1918 +2 1 STV ' RMS stv word 
; 161 45 1 )= 
+) a eee 
; 1631 460 | FUNCTIONAL DESCRIPTION: 
: 16 ¢ 46¢ 1 i This routine opens a file for input and output using a name string and default 
: 1694 sre? } name string. It is used only for the journal file. 
: 1695 sibe | FORMAL PARAMETERS: 
; loge re 14 : RAB The address of the RAB to connect. 
: 1699 at ! FILE_DESC The address of a descriptor coritaining the filename 
: 1631 471 DNA The address of the default name string. 
; 1638 gu78 : DNS The Length of the default name string. 
; Hy eof? ' STS The RMS status returned 
; Ht t4 37? : STV The RMS stv word returned 
: 1639 2479 1°! IMPLICIT INPUTS: 
3; 1640 2480 1! 
el ta ee ater 
; 1803 oi8s 1 ' IMPLICIT OUTPUTS: 
3 1644 2484 1! 
> 1645 2485 1 | 10_STS 
2 rn Bead 
; 1648 438 ! ROUTINE VALUE: 
> 1650 490 1! If successful, the IFI; if the open failed, 0. 
3: 1651 491 1! 
: 165¢ 49¢ 1 | SIDE EFFECTS: | 
: 165 49 - s 
3; 1654 494 1! NONE 
OBB 
1689 497 1 | 
; 1928 re BEGIN 
> 1660 500 MAP 
; 1661 501 FILE_DESC : REF BLOCK C, BYTE), 
i 1668 308 RAB 7? REF $RAB_DECL; 
3; 166 50 
3; 1664 504 LOCAL 
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EDTS EDTSIOMOD = 1/0 for VAX/VMS bese p-1984 X=11 $-32 V4.0-7 Page 52 EDTS 
you~ EDTSSOPN_INOUT - Open a file for input and out 12280 0- 1984 1 93: 33:79 SK$V men TER: ceo i °sRe 10M0D .832;1 (18) | V04- 
: 1668 35 cu. ait: 
: 1687 : RSL, | ; 
; 1669 3 KABPRO : $XABPRODECL, $ <1 
: 1670 10 WORK_FAB : $FAB_DECL, 3 <) 
; 167) i RELAT_NAM : $NAM_DECL; : 1 
: 1873 218 FNA = .FILE_DESC CDSCSA_POINTER]; ' get file name | : 21 
; 1ore a2 “ FNS = .FILE-DESC CDSC$WILENGTHI; i and its Length | : $1 
: 1676 316 i Initialize the NAM and XAB bloc ; 31 
3; 167 1 ' Since only the journal file is; + for 1/0, we save the NAM block : 1 
; 1678 218 in case we later delete the journal file. : $1 
: 1680 520 "  $NAM_INIT (NAM = JOURNAL_NAM, ESA = MYBUF2, ESS = NAMSC MAXRSS, RSA = MYBUF, RSS = NAMSC_MAXRSS); F 51 
: 1681 521 SNAM-INIT (NAM = RELAT_NAM, RSA = I NPUT NAME, RSS = NAMSC_MAXRSS); ; 21 
; 1686 5 ¢ RELAT_NAM CNAMSB_RSLJ = .INPUT NAME 3 21 
; 1683 3 ; : SXABPRO_INIT (KAS = XABPRO, PRON <RD Rup>); : 31 
; 193? 2 2 Setup the FAB and RAB : $1 
: 1687 527 " - $$TRACE (EDTSSTR -1F 0, EDTS$TR_SIFO_FNAM, .FNS, .FNA); 3 21 
3 1688 P 2528 SFAB_INIT (FAB = K FAB. htt 5 17 DEQ = 5, FAC = <GET, PUT>, FOP = <SQ0, DFW, OFP>, SHR = NIL, ; 21 
> 1689 3¢9 =¢ RFM” ~ ER = 255, NAM = JOURNAL_NAM, XAB = XABPRO); : 21 
: 1690 530 WORK_FAB CFABSL NA] = = ENAS : 21 
: 1691 331 WORK ~F FABSB_FNS FNS; 3 2 
3 1692 P 25 g SRAB-INIT (RAB = .RAB, RAC = SEQ, ROP = <LOC, RAH, WBH>, UBF = MYBUF, USZ = 255, FAB = WORK_FAB, | ; ¢1 
: 1693 5 RHB = VFCHD, CTX = 0); : 21 
3 1694 534 '¢ : 21 
3 1695 535 move in the default name string. 3 41 
3 1696 2536 3 21 
: 1697 $337 SSTRACE ( DTSSTR IFO, EDTSSTR_ SIFO_DNAM, .DNS, .DNA); 3 21 
> 1698 538 + FABSL DNA = | : 21 
3; 1699 2539 WORK_FAB CFABSB = s ai 
3 1700 2540 2 SSTRACE CEDTSSTR NP, citbtin $1F0 ghinan. .RELAT_NAM CNAMSB_RSLJ, .RELAT_NAM CNAMSL_RSA)); | 3 Zi 
: 170) 3361 g is JOURNAL_NAM CNAMSL_RLF) = RELAT_N : $1 
: 1703 228 i Attempt the open and then the connect, setting up the status and STV : 21 
: 1708 8 q if either of them fails. 

1706 546 "10 STs = WERMS,QREN (FAB = WORK. FAB): | 

: 1707 54 JOORNAL = 0; 

: 1708 248 SSTRACE (EDTSSTR_ wit EDTS$$TR_SIFO_OPN_STS, XUPVAL, WORK_FAB CFABSL L_sts}): 

: 1708 249 SSTRACE (EDTSS$TRIIFO. EDTSS$TRISIFO-OPN-STV, ZUPVAL, WORK-FAB CFABSL_STVJ); | 

: 1711 551 IF .10_STS 

; Har; 226 THEN | 

3; 171 55 GIN 

: 1714 554 RSL = .JOURNAL_NAM CNAM$B_RSLJ; 

> 1715 555 STRING_DESC (. PTE _DESC, RSL. MYBUF); 

: 1716 236 END 

: 171 55 ELSE 

oi es: aon 

: 1720 $60 4 IF (.JOURNAL_NAM CNAMSB_ESL) NEQ 0) | 

> 1721 561 3 THEN | 


SRMS_PTR= 
03FC 00000 ENTRY 
59 00000000" EF 9E £005 MOVAB 
25 FEF CE 9E 000 MOVAB 
> 68 ac D0 0000 MOVL 
28 4 A 1 MOVL 
o # 8a Rie 
oe et 
FESA C9 1 BE O002A MNE GB 


JOURNAL _NAM 


EDTSSOPN_INOUT, Save R2,R3,R4,R5,R6,R7,R8,- 


ig 
(R7), FNS 
#0, (SP), #0, #96, S$RMS_PTR 


#24578, SRMS_PTR 
#1, $RMS_PTR¥2 
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04~000 EDTSSOPN-INOUT - Open a file for input and out eta 1 9 33:49 PLEKSUMGMASTERSCEDT SRCTIOMOD.B32;1 . 
3s 17 5 266 4 BEG! 

: 17 63 4 RSL = .JOURNAL_NAM CNAMSB_ESL : 

: 1726 266 4 RSA = .JOURNAL-NAM CNAMSL“ESAJ; 

; 1725 65 4 STRING_DESC (.FILE_DESC, RSL, .RSA); ! get resultant filename 
3 17 § 208 END; 

: 17 56 

. a 
: 17 570 IF .10_STS 
3; 1731 571 HEN 
3: 17 ¢ 276 BEGIN 
: 17 37 SSTRACE (EDTSSTR IFO, EDTSSTR_SIFO_OPN_IFI, 2, WORK_FAB CFABSW_IFIJ); 
: 17 74 10_STS = $RMS CONNECT (RAB = 7TRAB); 

3 1735 575 SSTRACE (EDTSSTR_IFO, EDTS$S$TR_SIFO_CON_STS, XUPVAL, RAB CFABSL_STS]); 
3 if $ 278 SSTRACE (EDTSSTR_IFO, EDTSSTR_SIFO_CON_STV, ZUPVAL, RAB CFABSL_STVJ); 
: 1738 578 IF .10_STS 
; 1739 579 THEN 
3; 1740 580 '+ 
: 15}! 23) Succeeded, return the IFI 
: 1708 ong 4 BEGIN 
1 1744 584 4 .STV = .10_STV; 

: 1745 585 4 .STS = .107STS; 

+ 1746 586 4 RETURN (.WORK_FAB CFABSW_IFIJ); 

+ 1747 587 4 END 
3; 1748 588 ; ELSE 
: 1749 589 10_STV = .RAB CRABSL_STV] 

: 1750 2590 ; 

; 1751 591 END 
; 1728 238 ELSE 
: 1033 293 10_STV = .WORK_FAB CFABSL_STV]; 

: 1755 595 2 !4 
4 : ailed, return 

ee pee a Lsetot oom 

: 1758 598 -STV = .10_STV; 

: 1759 599 .STS = .JO-STS; 

: 1760 $600 RETURN (0); 

+ 1761 601 1 END; ! of routine EDTSS$OPN_INOUT 


<m 
o 
=a 
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54 | 
OPN_INOUT = Open a file for input and out p-19 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 (18) 04: 
FE3C = C9 FBIC 9 9E 0002F MOVAB MYBUF, $RMS_PTR+4 : ; 2 
EGS 9 3 ge 0086 MNEGB #1, SRMS PTR+10 : a? 
FEG4 «= C9 FCC §=6 C9. 9E (000 MOVAB  MYBUF 2 Sms _PTR+12 : 3 2! 
0060 &8F 00 6e me 60 2c 004 movcS #0, (SP), #0 #96, SRMS_PTR + 2521 7 2 
04 AE 6002 gf 0 00048 MOVW 424578. SRMS_PTR : 3 ¢ 
6 AE 1 8E 00051 MNEGB #1, $RMS_PTRT : 3 ¢ 
a a eR fae| LEE 
0058 =s«aBF 00 6E ‘ 00 2c 9061 MOVCS #0, (SP), 10. #88, SRAS_PTR : $256 : 5. 
Ag AD sang F 80 O06, MOVW #22547, $RMS_PTR : 3 $1 
B AD FF46 F B 0 MOVW #-186, SRMS_PTR+8 : ; 2 
0050 8F 00 6£ gy 00 2 90076 movcS #0, (SP), #0, #80, SRMS_PTR ; 2529 : $) 
64 AE 5003 8F BO 0007F MOVW #20483, $RMS_PTR : 3 2! 
68 AE 20000060 8F 00 00085 MOVL  #536871008, SRMS_PTR+4 : ; 2! 
74 AE _ 01 DO 0008 MOVL #1, $RMS_PTR+ ; 3g! 
78 AE 20030005 + 8F D0 00091 MOVL #5$7067525, SRMS_PTR+20 ; : ¢! 
0082 CE 0202 8F B0 00099 MOVW #514, S$RMSPTR+30 : 22 
FF7C ©CD AS AD 9E 000A0 MOVAB XABPRO, $RAS_PTR+36 : 3 21 
80 AD FE38 46C9 SE O00A6 OVAB JOURNAL NAM, ~$RMS_PTR+40 : i 2 
BE AD FF 8F 9B OOOAC MOVZBW #255, S$RMS_PTR+54 : ; 2! 
84 AD 58 00 00081 MOVL NA, WORK_FAB+44 ; 2530 > 2 
8C AD 56 90 00085 MOVB FNS, WORK_FAB+52 : 2531 ; 2! 
56 04 AC bO 00089 MOVL a 3 2533 3 ¢! 
0044 8F 00 6 00 2¢ 9008p MOVCS #0, (SP), #0, #68, (R6) : : $1 
66 4401 8F BO 000C5 MOVW #17409, (R6) : 3 ft 
04 A6 00010600 8F D0 OO0CA MOVL #67072. 4(R6) : 3 2] 
1E Ab 94 90008 LRB = 30(R6) : 3 21 
20 Ab FF 8F 98 000D MOVZBW #255, 32(R6) : : 21 
24 «AG FB1C C9 9E OOODA OVAB MYBUF, 36(R6) ; : 21 
C Ab 08 A YE 000E0 MOVAB VFCHD (R6) : > 21 
C Ab 64 AE 9E O00E5 MOVAB WORK_FAB, 60(R6) : : 3" 
88 AD Oc AC DO OOOEA MOVL DNA, _FAB+48 ; 2538 : 2) 
8D AD 10 AC 90 OOOEF MOVB DNS, WORK-FAB+53 : 2539 : 21 
FE48 C9 04 AE YE OOOF4 MOVAB_ RELAT_NAM, JOURNAL_NAM+16 : 2541 : 21 
64 AE SF OOOFA PUSHAB WORK : 2546 3 21 
000000006 00 1 FB OOOFD CALLS #1, SYSSOPEN : ar 4 
69 0 D0 00104 MOVL RO, 10 STS ; 3 44 
FE48 C9 D4 00107 CLRL § JOURNAC_NAM+16 + 2547 3 24 
0B 69 €9 0010B BLBC 10 . : 2551 3 2 
bE FE3B. «C99 90106 MOVZBL JOORNAL_NAM+3, RSL : 3234 : 3 
FBIC §=6C9) OOF «(0011 PUSHAB MYBUF : 2555 3 2 
11 (11 Oo117 BRB 2$ : 3 24 
50 FE43. C9 9A 00119 18 MOVZBL JOURNAL_NAM+11, RO : 2560 3 24 
16 13 0011 BEQL © 3$ ; 3 24 
bE 50 00 001 MOVL RO, RSL > 2563 3 2 
50 FEGG £9 D0 91 MOVL §§ JOURNAL_NAM+12, RSA > 2564 3 24 
0 bb 1 PUSHL RSA > 2565 3 24 
04 AE F OO12A 2$: PUS RSL ; 3 24 
57 DD 0012D PUSHL R ; 3 
000000006 90 03 FB 12F CALLS #3, STRSCOPY_R ; 7 2 
4 69 E9 00136 3$: BLBC 10_STS, 5$ : 2570 3 24 
6 DD 00139 PUSHL R6 : 2574 3 24 
000000006 00 01 FB 00138 CALLS #1, SYSSCONNECT ; 2 
| 
| 
ee: 
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Oc 090 EDTSSOPN_OFIDEF = open a file for output by na 12780-1382 90:33:49 NT EKSVMGHASTERSLEDT SRCTIOMOD.B32;1 . (19) 

: 1766 ° ; ! ZSBTTL "EDTSSOPN_OFIDEF = open a file for output by name and default name’ 

3 1708 605 1 GLOBAL ROUTINE EDTSSOPN_OFIDEF ( ! Open a file for output by name and default name 

; 176 6 $ 1 RAB ' Address of the RAB 

: 1768 607 1 FILE_DESC, i descriptor of filename | 
3; 1769 608 1 DNA, ! Address of the default name string 

; 1770 609 1 DNS, ! Length of the default name string 

3 1771 610 1 SEQ, ' 1 = VFC format 

s tre 611 1 RLF, ! 1 = use input file as related name 

3; 177 oi¢ 1 DFA ' 1 = use default file attributes, 2 = journal attributes 

: 1774 2615 1 FORCE_MAXV, ! 1 = force maximum version number 

3 1775 614 1 STS, ' rms status word 

3: 1776 615 1 STV ! ems stv word 

3 1777 616 1 )= 

: 1778 solr 1 

: 1779 618 1 !++4 

3; 1780 2619 1 ! FUNCTIONAL DESCRIPTION: 

3: 1781 2620 1! 7 

: He 2621 1! This routine opens a file for output using a name string and default 

: 178 2622 1! name string. 

3: 1784 26253 1! 

3; 1785 2624 1 ! FORMAL PARAMETERS: 

3 1786 2625 1! 

3: 1787 2626 1! RAB The address of the RAB to connect. 

3: 1788 2627 1! ; 

3 178 $os8 ' : FILE_DESC The address of a descriptor containing filename 

: 17 3680 : DNA The address of the default file name string. 

3 i $038 : } DNS The Length of the default file name string. 

5 1733 Ste ’ SEQ Flag indicating that the file should be created with VFC format. 

: 4 4 $038 : : RLF Flag indicating that open should use primary input file as related file 

: F444 sees : DFA Flag indicating that the open should use input, journal or default file attributes 

3 1801 2640 1 ! FORCE_MAXV Force maximum version number. 

g 1808 2641 1! 

; 180 2642 1! STS RMS status returned 

3 1804 2645 1! 

3; 1805 2644 1! STV RMS STV word returned 

3 198 2645 1! 

: 180 $046 1 ! IMPLICIT INPUTS: 

> 1808 647 1 | 
3; 1809 2648 1! NONE 
: 1810 2649 1! 

: 1811 seat 1 ! IMPLICI? OUTPUTS: 

: alg 651 1! 
3; 181 $026 1! 10_STS 

: a 653 1! I0_STV 

3; 1815 654 1! 

2 1316 655 1 ! ROUTINE VALUE: 

; 181 656 1! . 
; 1818 657 1! If the file is opened successfully, the IFI; otherwise, 0. 
: 1819 2658 1! : 
3; 1820 2659 1°! SIDE EFFECTS: 


i as Hew ds cee a em se Seek me ils ale cle: eet Sa ek de 
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V ot EDISSOPN. OF 1DEF - open a file for output by na 1 ~300-1382 90:33:78 WT EKSVMGMASTER-CEDT Sac 9I0MOD.B32;1 . (19) 
; 1821 660 1! 
3 1 ¢ 661 1! NONE 
3; 3 006 1! 
> 1824 665 1 !-- 
3; 1825 664 1 
3 1 § 665 BEGIN 
3 1 096 
: 1828 66 MAP 
3 1829 668 FILE_DESC : REF BLOCK C, BYTE], 
; 18 9 6 3 RAB = REF $RAB_DECL; 
3 13 ; 671 LOCAL 
3 1 or¢ RSA, 
: 18 67 RSL, 
; 1835 674 FNA, 
; 1836 675 FNS 
> 1837 676 XABPRO : $XABPRO_DECL, 
: 1838 677 WORK_F : SFAB_DECL 
; 1839 678 NAM BLOCK_PTR :~REF S$NAM_DECL, 
; 1840 679 RELAT_NAM~: $NAM_DECL; 
: 1641 680 2 
$ 9k] 2681 2 FNA = .FILE_DESC CDSCSA_POINTER); 
3; 184 268 § FNS = .FILE_DESC COSCSW_LENGTHI; 
> 1844 268 + 
; Hb of sone § } Setup the FAB, RAB and XAB for the open. 
3; 1847 686 2 SSTRACE (EDTSSTR_OFO, EDT$STR_SOFO_FNAM, .FNS, .FNA); 
; 1848 P 2687 2 SFAB_INIT ( FAB™= WORK_FAB 
; 1850 P 2689 2 DEQ = 
3; 1851 P 2690 § »FAC = <PUT> 
s 1836 P 2691 »FOP = <SQ0, DFW, OFP> 
: 185 2692 2 SHR = NIL); 
: 1854 2693 2 !+ 2 
; 1855 2694 2 ! Maximize version number if requested. 
1889 696 3 
; 1933 444 § IF .FORCE_MAXV THEN WORK_FAB CFABSL_FOP] = .WORK_FAB CFABSL_FOP] OR FABSM_MXV; 
3; 1860 2699 5 CASE .DFA FROM 0 TO 2 OF 
3: 1861 2700 SET 
5 1866 2701 2 
: 186 $i0e ]: ' EXIT 
3 1864 8 BEGIN 
3; 1865 704 
3: 1866 705 IF .ATTRIBUTES_SET 
3: 1867 2706 3 
: 1868 2707 4 BEGIN 
: 1869 708 4 !+ ; , 
3 4 14 +4 : : Use file attributes from the primary input file. 
: 1e76 711 4 SXABPRO_INIT (XAB = XABPRO); 
3 187 rie 4 XABPRO [XAB$W_PRO] = .INPUT PROT; 
; Ht ay ; WORK_FAB CFABSL_XAB] = XABPRO; 
e th 
; 1876 715 4! If the input file was VFC sequenced, then a /SEQ on EXIT means give me 
3; 1877 2716 4 ! a VFC file with the same attributes as the input file. The 
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v04-000 EDTSSOPN_OFIDEF = open a file for output by na 12: ~8ep-1984 DISKSVMSMASTER: tt i’sre 10MOD .B32;1 (19) 
; 1878 717 4 ! absence of /SEQ means give me the default attributes. 

; 1879 a 4 !- . 

>; 1880 719 & 

; 1881 720 5 1F (,INPUT_RFM EQL FABSC_VFC) 

; 188 721 4 THEN 

: 188 7 ¢ 4 

> 1884 7 5 IF (,SEQ NEQ 0) 

; 1885 724 4 THEN 

3; 1886 725 «5 BEGIN 

: 1887 726 «5 WORK_ re rAese RAT] = .INPUT_RAT; 
; 1888 72? 5 WORK_ FAB ABSB- URFM] = FABSC VFC 

; 1889 728 3 WORK-FAB F ABSU “MRSJ = .INPUT_ mR; 
; 1890 729 END ~ 

; 1891 730 4 ELSE 

; 1336 sia) 5 BEGIN 

; 189 Tag 5 WORK_FAB CFABSB_RAT] = FABSM_CR; 
> 1894 2733 5 WORK FAB CrABSB- RFM] = FABSC-VAR; 
3; 1895 2734 § WORK_FAB CFABSW_MRS) = 255; 

; 1896 2735 5 END 

: 1897 2736 «65 

3; 1898 e737 4 ELSE 

3; 1899 2738 5 BEGIN 

: 1900 2739 5 I+ 

: 1901 2740 5 ! The input file was not sequenced, so set the record attributes depending 
: 196 bh : - on whether or not the /SE qualifier was specified 

3 1904 sous 5 WORK_FAB CFABS$B_RAT] = .INPUT_RAT; 

3; 1905 2744 5 

: 1906 2745 6 IF (.SEQ EQL G) 

3; 1907 2746 5 

; 1908 e747 5 WORK_FAB CFABSB_RFM] = .INPUT_RFM 
:; 1909 2748 5 

; 1910 2749 «5 WORK_FAB CFABSB_RFM] = FABSC_VFC; 
3; 1911 2750 5 

3 Hb at 2751 5 WORK_FAB CFABSW_MRS] = .INPUT_MRS; 

3 191 2752 4 END; 

3 1914 2753 4 

3; 1915 2754 & END 

: 1916 2755 3 ELSE 

3 1917 2756 4 BEGIN 

3; 1918 2757 & I+ 

: Hb 4k $f38 ? ‘ Use EDT's default file attributes unless /SEQ is given 
3 i} $760 : WORK_FAB CFABSB_RAT] = FABSM_CR; 

: 1998 $706 ? IF (.SEQ EQL 0) THEN WORK_FAB CFABSB_RFM] = FABSC_VAR ELSE WORK_FAB CFABSB_RFM]) = FABSC_VFC; 
3 1925 shea 4 WORK_FAB CFABSW_MRS] = 255; 

3; 1926 765 3 END; 

: 1362 roe ; 

3: 1928 76 7 ee 

3 136) ros Initialize the name blocks. 

3 1931 P +56 SNAM_INIT (NAM = NAM BLOCK, ESA = MYBUF2, ESS = MIN (255, NAMSC_MAXRSS), RSA = MYBUF, 
; 1936 771 RSS = MIN (255, RAMSC “AAXRSS)); 

3; 193 ak NAM_BLOCK PIR = NAM_BLOCK? 

> 1934 277 WORR_FAB TFABSL_NAM] = .NAM_BLOCK_PTR; 
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v04- EDTSSOPN_OFIDEF = open a file for output by na 14-Sep-1984 12:23:1 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 (19) 
; 1935 774 END; 
3 19 ° 775 
3; 19 £76 ]: ' WRITE 
; 1938 77 BEGIN 
3; 1939 ore + 
: Lb a4 Use EDT's default file attributes unless WRITE /SEQ is given 
: 1948 781 WORK_FAB CFABSB_RAT] = FABSM_CR; 
: 1353 788 IF (.SEQ EQL 0) THEN WORK_FAB CFABSB_RFM] = FABSC_VAR ELSE WORK_FAB CFABSB_RFM) = FABSC_VFC; 
: 194 785 WORK_FAB CFABSW_MRS] = 255; 
3 194 786 '+ 
: | 44 Initialize the name blocks. 
: 1950 P 2789 : SNAM_INIT (NAM = NAM BLOCK, ESA = MYBUF2, ESS = MIN (255, NAMSC_MAXRSS), RSA = MYBUF, 
: 1951 2790 3 RSS = MIN (255, RAMSC_MAXRSS)); 
; 1998 2791 3 NAM_BLOCK_PTR = NAM BLOCK: 
: 195 798 3 WORR_FAB CFABSL_NAM] = .NAM_BLOCK_PTR; 
BES =“ 
: 1956 ae: 2 1: ! JOURNAL 
: 1957 2796 BEGIN 
; 1958 14d = 7% : 
: 1322 thd: : } Use journal attributes 
: 1961 2800 3 SXABPRO_INIT (XAB = XABPRO, PRO = <RD, RWD>); 
> 1962 2801 3 WORK_FAB CFABSL_XAB) = XABPRO; 
: 1963 3802 3 WORK-FAB CFABSB_RAT] = FABSM_CR; 
3 1964 2803 3 WORK_FAB CFABSB_RFM] = FABSC_VAR; 
; 1965 2804 3 WORK_FAB CFABSW_MRS) = 255; 
3: 1966 2805 3 !+ 
; Hs 24 sane ; Initialize the special name block for the journal file. 
: 1969 P 2808 3 SNAM_INIT (NAM = JOURNAL_NAM, ESA = MYBUF2, ESS = MIN (255, NAMSC_MAXRSS), RSA = MYBUF, 
3 1970 2809 3 RSS = MIN (255, NAMSC_MAXRSS)); 
3 1971 2810 3 NAM _BLOCK_PTR = JOURNAL_NAM; 
: 1976 2811 3 WORR_FAB CFABSL_NAM) = <NAM_BLOCK_PTR; 
3; 197 sole 2 END; 
3 Hp 4 saz 2 TES; 
; i978 $B1¢ $ '¢ 
; 1A seis Specify the file name. 
: 1979 818 2 WORK_FAB CFABSL_FNA] = .FNA; 
: 1980 Hh 2 WORK-FAB CFABSB_FNSJ = .FNS; 
; 198¢ 2821 i Initialize the RAB. 
: 1984 Pp $855 2 SRAB_INIT (RAB = .RAB, RAC = SEQ, ROP = <LOC, WBH>, UBF = MYBUF, USZ = 255, FAB = WORK_FAB, RHB = VFCHD, 
: 1985 th Ctx = 0); 
: 1986 825 '¢ : 
; Hb 837 : Move in the default name string. 
: 1989 8 " $STRACE (EDTS$$TR_OFO, EDT$$TR_SOFO_DNAM, .DNS, .DNA); 
3: 1990 Hi WORK_FAB CFABSL_BNA] = .DNA; 
: 1991 830 WORK-FAB CFABSB"DNS) = .DNS; 
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104-000 EDTSSOPN_OFIDEF = open a file for output by na 14-Sep-19 4 99:33:49 DL SKSVMEMASTERSCEDT. SRCTIOMOD.B32:1 . 185 
1998 Bes § I "see wp the relotes from the input file, if d 
Ps ; set up the related name from the input e, requested. 
: 199% Bag 5 i.Set UP ‘J : 
; 1995 4 4 
3 3 5 IF .RLF 
3; 199 8 $ THEN 
; 1998 f BEGIN 
; 1999 838 SNAM_INIT (NAM = RELAT_NAM, ESA = MYBUF2, ESS = NAMSC_MAXRSS, RSA = INPUT_NAME, RSS = NAMSC_MAXRSS); 
; 2000 839 RELAT_NAM CNAMSB_RSL] = .iNPUT_NAME . 
; 2001 840 SSTRATE (EDTSSTR-OFO, EDTSSTR_SOFO RLNAM, .RELAT_NAM CNAMSB_RSLJ, .RELAT_NAM CNAMSL_RSAJ); 
; ¢ 841 NAM_BLOCK_PTR CNAMSL_RLFJ = RELAT_NAM; 
: 200 gee END; 
; 2004 4 
; 2005 844 4+ 
; 2006 845 ! Attempt the open and connect. Return the IFI if they succeed, otherwise 
3 sid4 7] : set up IO_STS and I0_STV and return 0. 
3 2009 3848 10_STS = $RMS_CREATE (FAB = WORK_FAB); 
; 2010 849 SS$TRACE (EDTSSTR_OFO, EDT$$TR_SOFO_CRE_STS, XUPVAL, WORK_FAB CFABSL_STS)); 
; 201] 2850 3 SSTRACE (EDTSS$TR_OFO, EDTS$TR-SOFO_CRE_STV, XUPVAL, WORK-FAB CFABSL_STVJ); 
3 $013 $82¢ 2 IF .10_STS 
3; 2014 285 . THEN 
; 2015 2854 EGIN 
; 2016 2855 3 RSL = .NAM_BLOCK_PTR CNAM$B_RSLI; 
; 2017 2856 3 STRING_DESC (.FICE_DESC, RSC, MYBUF); 
; 2018 5 TH4 3 END 
3; 2019 2858 ¢ ELSE 
; 2020 2859 BEGIN 
: 2021 2860 3 
; 2022 2861 4 IF (.NAM_BLOCK_PTR CNAM$B_ESL] NEQ 0) 
; 2023 sBee 3 THEN 
3 2024 2863 4 BEGIN 
; 2025 2864 4 RSL = .NAM_BLOCK_PTR CNAMSB_ESL]; 
3 2026 2865 4 RSA = .NAM-BLOCK-PTR CNAMSL~ESAJ; 
; 2027 2866 4 STRING_DESC (.FICE_DESC, RSC, .RSA); ! get resultant filename 
: 2028 2867 3 END; 
3 B94 2868 3 
; 2030 2869 2 END; 
: 2031 2870 § 
; 203¢ 2871 IF .10_STS 
3; 203 $878 ¢ THEN 
3; 2034 287 BEGIN 
3 2035 2874 3 SSTRACE (EDTS$$TR_OFO, EDTSSTR_SOFO_CRE_IFI, 2, WORK_FAB CFABSW_IFIJ); 
3 2036 3875 10 = ANECT (RAB = <RAB); 
3 2037 876 3 SSTRACE (EDTSSTR_OFO, EDT$S$TR_SOFO_CON_STS, X%UPVAL, RAB CRABSL_STS)); 
3 O33 ar? 3 SSTRACE (EDT$$TR_OFO, EDTSS$STR-SOFO_CON-STV, Z%UPVAL, RAB CRABSL-STVJ); 
3 2040 879 ; IF .10_STS 
3 2041 880 THEN 
; 308 881 4 BEGIN “e 
3 204 882 4 S$TRACE (EDTS$$TR_IFO, EDTSSTR_SOFO_RNAM, .NAM_BLOCK_PTR CNAMSB_RSLJ, .NAM_BLOCK_PTR CNAMSL_RSAJ) 
3 2044 2883 4 SSTRACE (EDTS$TR_OFO, EDT$S$TR-SOFO_CON_ISI, 2> RAB CRABSW_ISIJJ; 
3 2045 3884 4 STV = .10_STV; 
3 2046 5 4 STS = .JO-STS; 
3 2047 2886 4 RETURN (.WORK_FAB CFABSW_IFIJ); 
3; 2048 2887 4 ND 
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58 
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OMOD = 1/0 for VAX/VMS 
T - open a file for output by na 


00000000' 
FEF4 


04 


4 
20000080 
2001 

20 

1¢ 


14 
FE30 
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581 
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RAB CRABSL_STV] 


-WORK_FAB CRABSL_STV; 


07FC 00000 


9E 00002 
9E 09 


DO 00012 
3C 00016 
ae t,t 
00020 
BO 00022 
DO 00028 
DO 00030 
BO 00034 
90 O003A 
E9 0003F 
88 00043 
CF 00047 
0004C 
DO 00052 
B 00056 
C $0028 
ng ute 
oie 
9E 00070 
D1 00076 
12 00078 
DS 00070 
1 tt 
90 00081 
11 B80 
90 0008A 
5 Ba 
3 Hi, 
12 0009A 


F 
16- 
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! of routine EDTSOPN_OF IDEF 


NAM_BLOCK 
NAM” BLOCK 


JOURNAL _NAM 


EDTSSOPN_OF IDEF, 


FILE DESC. R8 
$CRBT 


I 
#0, (sp). 


#20483, SRMS_PTR 
4 36871008 SRMS_PTR+4 


PiR+ 


*Bi98" eon 


sete Rares SET, 
0, (SP), RO, peas SRMS_PTR 


#22547 $RMS_PTR 
T PROT, RABPRO+8 
AB+36 


Ww 
UT REM. #3 


4$ 

INPUT_RAT, WORK_FAB+30 
#2, WORK_FAB+30 
INPUT_RAT, WORK FAB+30 


+ °sae 10MOD .B32;1 


Save R2,R3,R4,R5,R6,R7,R8,- 


#0, #80, SRMS_PTR 


16 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 18-3 =1984 00:35:33 -VAX=11 Bliss-32 v4.0-74 p 
Ou. 000 EDTS opr 1ab 99:33:49 BaART age 4 


TSSOPN_OFIDEF = open a file for output by na 14-Sep-19 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 
0083 «CE FE24 CA 90 0009 MOVB JNPUT_RFM, WORK_FAB+31 3 2747 
3 11 OA ERB : 
0083 CE 90 OOOAS 6$: MOVB #3, WORK_FAB+31 + 2749 
8E AD FE2C i 80 OOAA $: NOVY INPUT_MRS, WORK_FAB+54 : P31 
0082 CE : 90 08¢ 8$: MOVB We. WORK_FAB+30 + 2760. 
57 05 0008 TSTL = + 2762 
08 11 00089 BRB 10$ : | 
0082 CE 02 99 00BB 9$: MOVB #2, WORK_FAB+30 : 2781 
14 AC D5 000C TSTL SEQ + 2783. 
07 iF 00C3 10$:  BNEQ 12$ : 
0083 CE Oe 9 99¢ 11$:  MOVB #2, WORK_FAB+31 : 
11 OOOCA BRB : 
0083 CE 03 90 000CC 128: MOVB #3, WORK_FAB+31 : 
8E AD FF 8F 98 00001 13$:  MOovZBY #255, WORK FAB+54 + 2785 
0060 &F 00 6E re98 u9 2c 38006 14$: MOVCS #0, (SP), #0, #96, SRMS_PTR : 2790) 
FE9B OCA 6002 8F BO O00EO MOVW #24578, $RMS_PTR : 
FESA CA 01 BE 000E7 MNEGB #1, $RMS_PT : 
FE9C =OCA FBIC «CA OE OOOEC MOVAB MYBUF, SAMS PTR+4 : 
FEA2 CA 01 BE OOF MNEGB #1, $RMS PTR+10 : 
FEAS CA FCIC }§=6rd CA-—s—«&S9E-:« OOO B MOVAB MYBUF2, SRMS_PTR+12 : 
57 FE98 CA 9E OOOFF MOVAB NAM_BLOCK, NAM_BLOCK_PTR > 2791 
55 11 00104 BRB > 2699. 
0058 &F 00 6E ~ 00 2¢ 00106 15$:  MOVCS #0, (SP), #0, #88, SRMS_PTR + 2800 
A8 AD 5813 8F BO 0010F MOVW #22547, $RMS_PTR : 
BO AD FF46 =8F BO 00115 MOVW #186, SRMS_BTR+8 ; 
FF7C 36 CD A8 AD 9E 0011B MOVAB XABPRO, WORR_F4B+36 > 2801 
0082 CE 0202 8F B0 00121 MOVW #514, WORK_FAB+ > 2802 
8E AD FF 8F 9B 00128 MOVZBW #255, WORK~FAB+54 > 2804 | 
0060 8F 00 6E at 00 2¢ 90120 MOVCS #0, (SP), #0, #96, SRMS_PTR > 2809 
FE38 «OCA 6002 8F BO 00137 MOVW #24578, $RMS_PTR F 
FESA CA 01 8E 00156 MNEGB #1, $RMS PTRF2 : 
FE3C OCA FBIC CA 9E 0014 OVAB MYBUF, SRMS_PTR+4 ; 
FEG2 CA 01 8E 0014A MNEGB #1, S$RMS_PTR+1 ; 
FEGG OCA FCIC } CA 9E OO14F VAB  MYBUF2, SRMS_PTR+12 : 
57 FE38 «OCA 4 00156 MOVAB JOURNAL_NAM, NAM BLOCK_PTR : 2810 
80 AD 57 00 00158 16$:  MOVL #$NAM_BLOCK_PTR, WORK_FAB+40 > 2773 
84 AD 59 DO 0015F MOVL § FNA, WORK~FAB+44 > 2818 
8C AD 56 90 00163 MOVB FNS, WORK-FAB+5 > 2819 
56 04 AC 00 00167 MOVL. RAB, R6 + 2824 
0044 8F 00 6E 09 2c o0198 MOVCS #0, (SP), #0, #68, (R6) : 
ab 4401 8F B80 0017 MOVW #17409, (R6) ; 
04 A6 00010400 8F DO 00178 MOVL #66560. 4(R6) : 
1E Ab 94 0180 30(R6) : 
20 Ab FF 8F 9B 0018 MOVZBW #255 32(R6) ; 
24 Ab FBIC CA 9E 00188 VAB  MYBUF, 36(R6) : 
ec Ab 08 AA 9E 0186 MOVAB VFCHD, 44(R6) ; 
C Ab 64 AE 4 0019 MOVAB WORK_FAB, 60(R6) F 
BB AD 0c AC 00 00198 MOVL DNA, WORK_FAB+4 : 3829 
8D AD 10 AC 90 00190 MOVB DNS, WORK"FAB+5 : 2830 
2E 18 «AC 59 O1A2 BLBC RLF $ : 839 
0060 8F 00 6E a 00 C 00146 MOVCS #0, (SP), #0, #96, SRMS_PTR > 2838 


; 2060 2899 1 


H 16 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16*Sep-1984 00:35:33  VAX-11 Bliss-32 Vv Page 63 
042000 EDTSSOPN_OFIDEF = open a file for output by na 12-808 -1 3b 9:33:%9 DISKSVMSMASTER: chor? she I10MOD .832;1 . 185 
04 AE 6002 a 0 OO1AF MOVW 424578 $RMS_PTR : 
06 AE 1 BE 00185 MNEGB #1, $RMS_PTRF2 : 
08 AE FDIC 3=—s CA—s«OS9E.s«00189 MOVAB INPUT_NARE, $RMS_PTR+4 : 
F AE 01 8 001BF MNEGB #1, SRMS PTR+1 : 
10 AE FCIC =A : 1c MOVAB MYBUF 2. Anns .P PTR+12 : 
07 «A FEIC ~=CA 01¢ MOVB _—sINPUT EN, RELAT_NAM+3 + 2839 
10 A 04 AE 9E Oi MOVAB  RELAT~ NANC 6(NAM_BLOCK_PTR) + 2841 
64 AE OF 00104 178: PUSHAB WORK : 2848 
000000006 00 gf é B1D7 CALLS #1, SYSS$CREATE : 
6A 0 D 0 1DE MOVL RO, IO_STS : 
OA 6A f O1E1 LBC 10 18$ : 2852 
6E 03 AZ 9A Que, MOVZBL (RAN “BLOCK_PTR), RSL : 385 
FBIC «CA «OOF O01E8 PUSHAB MYBU + 2856. 
OF 11 OO1EC BRB Noe : | 
0B A? 93 OO1EE 18S: TSTB =: 11 (NAM_BLOCK_PTR) + 2861. 
16 1 ooiF BEQL 20$ ; 
6E 0B A? 9A 001F3 MOVZBL 11(NAM_BLOCK_PTR), RSL > 2864 | 
50 oc A? DO gaiee OVL 12(NAM_ “BLOCK_ PTR), RSA ; 2865 
50 DD 001FB PUSHL RSA > 2866. 
04 AE OF OO1FD 19$:  PUSHAB RSL : 
58 DD 00200 PUSHL RB : 
000000006 00 03 FB 90802 CALLS #3, STRSCOPY_R : 
24 6A £9 00209 208: LBC 10.STS, 22$ > 2871 
56 DD 0020C PUSHL R6 > 2875 
000000006 00 01 FB 00206 CALLS #1, SYSSCONNECT ; | 
6A 50 DO 0021 MOVL RO, IO_STS : 
OE 6A £9 00218 BLBC 10.STS; 21$ > 2879 
28 «BC 04 AA DO 0021B MOVL IO"STV, aSTV > 2884. 
24 «BC 6A DO 00220 MOVL  IO7STS, aSTS : 2885. 
50 66 AE 3C 00224 MOVZWL WORK_FAB+2, RO > 2886. 
04 00228 RET ; 
04 AA OC A6 DO 00229 21$:  MOVL 12(R6), I0_STV ; 2889 
05 11 O0gce BRB 23$ + 2879 | 
04 AA 70 AE DO 00230 22$:  MOVL #WORK_FAB+12, IO_STV > 2893 | 
28 «BC 04 AA DO 00235 23$: = MOVL 10_STV, aSTV : 2895 
24 BC 6A DO 0023A MOVL IO“STS, aSTS > 2896 | 
50 D4 0023E CLRL = RO : 2897 | 
04 00240 RET ; 2898 | 
; Routine Size: 577 bytes, Routine Base: _EDTSCODE + 08D7 


16 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 1b-se -1984 00:35:33 VAX-11 Bliss-32 V4.0-74 Page 64 
042000 EDTSSCLS_FI1 = close a file 12-8 08- 1 3b2 99:3 :19 DLSKSUMGMASTERSLEDT  SRC4IOMOD .B32: 1 . (28) 
: 206 390 ! ZSBTTL "EDTSSCLS_FI = close a file’ 
3; 2064 an6 1 GLOBAL ROUTINE EDTSSCLS_FI ( ' Close a file , 
; 206 903 1 IF I, ! Internal file identifier 
; 2066 904 1 RAB, ' Address of the RAB 
3; 2067 905 4 DEL ! 1 = delete an output file, 2 = delete the journal file 
; 2068 906 1 NAME_DESC, i name of the file 
; 2069 907 1 STS, ! Resulting RMS status 
; 2070 908 1 STV ! Resulting RMS STV 
3 sor) 909 1 ) =z 
$ ore 910 1 
; sof 71) | ie 
3; 2074 3ig 1 ! FUNCTIONAL DESCRIPTION: 
; 2075 9135 1! 
3; 2076 914 1! Close a file and optionally delete it. 
3 sore 915 1! 
; 2078 916 1 ! FORMAL PARAMETERS: 
: 2079 917 13! : 
; 2080 $318 2. ei The internal file identifier. 
; 2081 919 1! 
3 soes 3391 ' RAB The RAB which was connected. 
3; 2084 29 ¢ 1! DEL 1 = delete the last file opened, 2 = delete the journal file 
; 2085 2923 1! ; 
; 2086 2924 1! NAME_DESC Name of the file 
; 2087 2925 1! 
; 2088 $359 1! STs Resulting RMS STS value 
: 2089 2927 1! 
; 2090 sess 7: $TV Resulting RMS STV value 
3; 2091 2929 1! 
; 209 2930 1 ! IMPLICIT INPUTS: 
: 209 2931 1! 
3 2094 $336 . 7% NONE 
: 209 2933 1! 
3; 2096 2934 1 ! IMPLICIT OUTPUTS: 
3: 2097 2935 1! 
: 2098 2936 1! NONE 
3; 2099 2937 1! 
3; 2100 2938 1 ! ROUTINE VALUE: 
: 2101 2939 1! 
; $106 2940 1! NONE 
: 210 2941 1! 
3: 2104 444 1 ! SIDE EFFECTS: 
; 4 943 1! 
3 2106 944 1! None. 
3: 2107 2945 1! 
3: 2108 2946 1 !-- 
3; 2109 2947 1 
3; 2110 2948 BEGIN 
3 $it3 2949 
3 2112 950 MAP 
3 2113 951 RAB_: $RAB_DECL, 
s 21146 326 NAME_DESC : BLOCK (8, BYTE); 
3 2115 95 
3: 2116 954 LOCAL 
> 2117 955 WORK_FAB : $FAB_DECL; 
: 2118 2956 


J 16 
EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX-11 Bliss-32 V4.0-74 Page 65 
EDTSSCLS_FI = close a file 10-8 8-1 3be 99:33:73 DLSKSVMGMASTERSCEDT SRCTIOMOD.B32; 1 (283 
8 927 SSTRACE (EDTSSTR_CLO, EDTSSTR_SCLO_IFI, 2, IFI); 
1 $35 Disconnect the RAB 
‘ 961 STS = SRMS_DISCONNECT (RAB = .RAB); 
¢ +3 »STV = .RAB CRABSL_STV); 
6 964 IF ..STS 
7 965 THEN 
8 966 BEGIN 
9 967 ! 
. 398 } Move the IFI into the FAB 
$8 2970 SFAB_INIT (FAB = WORK_FAB); 
33 $31 = WORK-FAB CFABSW_IFIJ = .IFI; 
35 35 3! Mark the file for deletion if that is requested. ; 
36 2974 ; ! Either the journal file or the Latest output file can be deletes (if CTRL/C 
37 2975 ' was typed), so use the appropriate name block. 
38 2976 3 !- 
39 2977 3 
40 sore 4 IF (.DEL NEQ 0) 
41 979 3 THE 
$e “o% 
rf 298e 4 IF (.DEL EQL 1) THEN WORK_FAB CFABSL_NAM] = NAM_BLOCK ELSE WORK_FAB CFABSL_NAM] = JOURNAL_NAM; 
46 2984 4 WORK_FAS CFABSL_FOP] = (.WORK_fAB CFABSL_FOP] OR FABSM_DLT OR FABSM_NAM); 
47 2985 3 END; 
48 2986 3 
49 2987 3 !+ 
50 2988 3 ! And close the file. 
51 2989 3 !- 
52 2990 3 STS = SRMS_CLOSE (FAB = WORK_FAB); 
53 2991 3 .STV = .WORR_FAB CFABSL_STV]; 
54 2992 2 END; 
55 2993 2 
56 2994 2 RETURN (..STS); 
57 2995 1 END; ! of routine EDTSSCLS_FI 
007C 00000 ENTRY EDTSSCLS_F1, Save R2,R3,R4,R5,R6 : 2902 
5E BO. UOCOA oF 00002 MOVAB -80(SP), SP : 
56 14 AC 00 00006 MOVL STS, R6 : 2961 
08 aC OD OR OpA PUSHL RAB ; 
000000006 00 01 FB 00000 CALLS #1, SYSSDISCONNECT 3 
66 50 DO 00014 MOVL RO, (R6) 3 
18 C 56 DO 00017 MOVL R6, aSTV : 2962 
0 66 59 0001B BLBC_ (Rd), 4$ > 2964 
8F 00 6E 00 C Oot MOVCS #0, (SP), #0, #80, SRMS_PTR : 2970 
6E 5003 $f 88 0026 MOVW #20483, SRMS_PTR : 
16 AE 03 60 8 MOVB #2, $RMS_PTRF22 : 
1F AE 90 0002F MOVB #2, SRMS_PTR+51 : 
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BLOCK, WORK_FAB+40 


Beal NAM, WORK_FAB+40 
664, “WORK _FAB+S 
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EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 1b-Se -1984 00:35:33 VAX-11 Bliss-32 V4.0-74 Page 67 
v04-000 EDTSSRD_IFI <= get a record from a file open fo 12-Sep-19 4 99:3 219 DISKSVMEMASTERSCEDT. SRCSIOMOD.B32: 1 7 (243 
: 160 444 } ZSSTTL "EDTSSRD_IFI = get a record from a file open for input’ 

; 196 999 1 GLOBAL ROUTINE EDTSS$RD_IFI ( ' Get a record from a file open for input 
: 216 000 1 RAB ' Address of the RAB 

3: 2164 001 1 FILE DESC, ' descriptor for record read 
3 2165 O0¢ 1 RHB_BESC, ! decriptor for header info 
3: 2166 003 1 STS, ' rms status 

: Sieg 00$ } wre’ i MS ile n b 
3 !14s Le has sequence numbers 
: 5169 006 1 »)= 

; 2170 007 1 

3: 2171 008 1 !+4+ 

; Ate 009 1 ! FUNCTIONAL DESCRIPTION: 

3; 217 3010 1! 

5 $ize $013 : Get a record from a file which is open for input. 

3; 2176 3018 1 ! FORMAL PARAMETERS: 

: $108 3018 1 i RAB The add f the RAB 

; : e address of the to connect. 

: 2179 3016 1! 

3 $180 aie :  FILE_DESC The address of a descriptor containing filename 

3; 2182 3019 1 ! RHB_DESC The address of header info descriptor 

: 2183 3020 1! 

3: 2184 $05) 1! STs RMS status returned 

>; 2185 30 ¢ 1! 

3: 2186 $05 72 $v RMS STV word returned 

3: 2187 3024 1! 

3; 2188 3025 1! VFC 1 = file has sequence numbers, 0 = it doesn't 

3: 2189 3026 1! 

: 2190 3027 1 ! IMPLICIT INPUTS: 

: 2191 3028 1! 

3 2192 3029 1! NONE 

: 2193 3030 1! 

3 2194 3031 1 ! IMPLICIT OUTPUTS: 

: 2195 3032 1! 

3: 2196 3033 1! NONE 

3: 2197 3034 1! 

3: 2198 3035 1 ! ROUTINE VALUE: 

3: 2199 3036 1! 

3; 2200 3037 1! If error or EOF, 0; if success, 1. 

: 2201 3038 1! 

3 $sg 3039 1 ! SIDE EFFECTS: 

; $50 $000 3 

: 04 041 1! NONE 

; $$02 $006 1! 

: 2206 043 1 !-- 

3; 2207 3044 1 

3; 2208 $002 2 BEGIN 

3: 2209 046 

3; 2210 047 OCAL 

3 2211 048 REC_ADDR, 

; $i¢ 049 REC_LEN; 

3: 221 050 

3 2214 051 P 

3; 2215 O2¢ RHB_DESC : REF BLOCK C, BYTE], 

3; 2216 05 RAB: REF S$RAB_DECL; 
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OD = 1/0 for VAX/VMS 16-Sep- 138% 9: 33:33 VAX=-11 BLi 
IFIl = get a record from a file open fo 14- Sep- DISKSVMSMA 


ais aia in EDTSSTR_SIFR_ISI, 2, RAB CRAB$W_ISIJ); 


14 
Do the get. 
"STS = SRMS_GET (RAB = .RAB); 
RAB” RABSL_STV): 
$$ TRACE (EDTSSTR RFR, EDTSS$TR_SIFR_STS, ZUPVAL, RAB CRABSL_STS $1); 
SSTRACE (EDTSSTRIIFR, EDTS$TR-SIFR-STV, ZUPVAL, RAB CRABSL-STVJ);: 


Return the record address and length. 


-32 V 
TER: cebt sae 1OMOD .B32; "te 


+ eee Be STRAB al EDTSSTR_ SIFR_REC, .RAB CRABS$W_RSZ)], .RAB CRABSL_RBFI); 


REC-LEN # « CRABSW_RSZ 
STRING. DEsé (.FILE DESC. réc LEN, .REC_ADDR); 


i If the file has sequence numbers, the sequence number of this record is in 
!' the first two bytes of the record prefix, in binary. 

IF (.VFC EQL 1) THEN REC_LEN = 2 ELSE REC_LEN = 0; 

STRING_DESC (.RHB_DESC, REC_LEN, VFCHD); 
Check for bad status. 


IF ( NOT ..STS) THEN RETURN (0); 


RETURN (1); 
END; ! of routine EDTSSRD_IFI 


-EXTRN SYSS$GET 


001¢ 00000 .ENTRY EDTSSRD_IFI, Save R2,R3,R4 
54 00000000" EF 9E 00002 MOVAB 
53 000000006 00 H 00009 OVAB STRSCOPY_R, R3 
5E 04 C2 0001 SUBL2 #4, SP 
64 D4 0001 CLRL.  VFCHD 
52 04 AC 00 49 MOVL aes. R2 
52 DD 9019 PUSHL R2 
000000006 00 01 FB 0001B CALLS #1, Stigeet 
10 BC 50 DO 00022 MOVL R 
“a oOo Oc A2 DO 00026 MOVL _12¢R2) 
0 38 A b0 0028 MOVL  40(R ,° Rec “ADDR 
6E 2 A2 3C 0002F MOVZWL 34(R2), R 
50 pd 00 j PUSHL REC_ADOR 
04 AE 9F 000 PUSHAB REC™LEN 
08 aC DD 00038 PUSHL Hs LE DESC 
63 03 FB 00038 CALLS #3, STRSCOPY_R 
01 18 AC D1 00 CMPL #1 
: if 004 BNEG 
6E 2 pd 0004 MOVL , REC_LEN 


- 


1 
EDTSIOMOD = 1/0 for VAX/VMS 1B-sep -1984 :3 VAX-11 Bliss-32 v4.0-7 9 ED) 
| EDT 1$$RD- IFl = get a record from a file open fo aan Pi 99: 33; +3 DISKSVMSMASTER: ceDT src 10MOD .B32;1 Page 39) | v04 
> 39 47 BRB 2$ : 
ef D4 49 1$: CLAL AG CLLEN : 
bb 4B 28: PUSHL R : 3078 
04 AE OF 4 PUSHAB REC_LEN : 
C AC DD 20 PUSHL R C : 
63 0 FB 0 CALLS #3 go RS COPY. R : 
04 10 BC E 56 . BLBC asts 3$ : 3083 
0 1 BO SA MOVL So : 3085 
4 5D RET : 
D4 005E 3$: CLRL =. RO : 
04 0006 RET : 


j 

| 50 
| 3 Routine Size: 97 bytes, Routine Base: _EDTSCODE + OB8A 
| 


; 2250 3087 1 


Ww 
oO 
a a —_ - = - OE oo | 


7 
o 
o 
o 
. 
. 
. 
o 
. 
o 
. 
7 
- 
° 
. 
o 
. 
o 
. 
2 
. 
° 
. 
. 
7 
° 
. 
. 
. 
e 
. 
. 
. 
e 
. 
e 
7 
o 
. 
e 
7 
e 
. 
oO 
. 
e 
. 
e 
” 
. 
e 
o 
e 
o 
. 
. 
a 
. 
oe 
. 
° 
. 
o 
. 
a 
. 
e 
. 
e 
. 
e 


MORIPUIPUPIPIAIPURIPIPIAININIAININAINIPIAININIAI“IAIAIAIAIPIAINIAIAIA IAIN D 


LS —_ - - = — 


mn 
o°o 
4 
rw 


SSe& 


WPwr 


ooo°o 
SSSOMH 
Wn — 


morornororererers 


——_ 


Be Oe Oe Oe Be Be Be Be Se Se Oe Be Be Be Be Be Be Se Se Se Se Se Be Se Ge Se Se Ss Oe Oe Oe Be Se Be Se Be Se Be Oe Se Oe Be Oe Oe Oe Be Be oe See Ge Ge Ge Ge Se Ge ae 


S332 


Oo 


MroTorenofonoferosrrrrrpnrnyT 
FARIS 


SANS NSN Se 


SSSSESPASSSS 


SION R UN ODe 


PMITOROMOPOPUPPPEfPeofeofonofty 


PSZSSE 


PIPOPORIPIPIPIPONIPYNIPIPONIPOPO PON No Nonofnononononunonory 


WA. AAP POPPI NININPUNIPIN 2 2 SO SO SS | OO 


PPE w ae OOOooooo o 


oo 
wn on 


“w 
ee me el el el ee ed ed ed ed od wd wd dt) 


1 
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1 ZSBTTL "EDTSSWR_OFI = put a record to an output file’ 


GLOBAL ROUTINE EDTSS$WR_OFI ( ! Put a record to an output file 
R ! Address of the RAB 
FALE DESC, i 


HB_BESC ; 
i 


d= 


'e¢ 


! FUNCTJONAL DESCRIPTION: 
Put a record to an output file. 
FORMAL PARAMETERS: 


| 
RAB The address of the RAB to connect. | 
FILE_DESC The address of a descriptor containing filename 
RHB_DESC The address of header info descriptor 
STS RMS status returned 
STV RMS STV word returned 
| 
IMPLICIT INPUTS: | 
NONE | 
IMPLICIT OUTPUTS: | 
NONE | 
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i ROUTINE VALUE: | 
1 if the operation succeeds, status if it fails. | 
! SIDE EFFECTS: | 
Signals on error. | 


BEGIN 


Pp 
RHB_DESC : REF BLOCK (8, BYTE) 
FILE_DESC : REF BLOCK C8, BYTES, | 
RAB? REF $RAB_DECL; | 
- SSTRACE (EDTSSTR_OFW, EDTSSTR_SOFW_ISI, 2, RAB CRABS$W_ISI)); 
: Set up the record address and size. 
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RAB CRABSL_RBF) = .FILE_DESC COSCSA_POINTER); 
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/ EDTSIOMOD EDTSIOMOD - 1/0 for VAX/VMS 16-Sep-1984 :35:3 VAX-11 Bliss-32 V4.0-74 P 71 
fbe2000 EDTS$WR_OF] = put a record to an output file 12-80-1382 99:33:78 DLEKSVMGMASTERCEDT SRCSIOMOD.B32;1 20 (29) | 
$ 145 RAB CRABSW_RSZ7) = .FILE_ DESC COSCSW_LENGTH]; 
+ $310 146 ¢ || SSTRACE CEDT STR OF UL EDTSs in soru REC” -RAB CRABSW_RSZ], .RAB CRABSL_RBFI); 
3 \g 148 i Set up the two bytes of record header, in case this file has sequence numbers. 
i; 23) 14 : If for some reason this file has record headers longer than two bytes, the 
3 12 } ? remaining bytes will be zero. 
E i$ ; § CHSCOPY (.RHB_DESC CDSCS$W_LENGTH), »RHB_DESC CDSCSA_POINTERJ, 0, 255, VFCHD); 
E + : ¢ Do the operation, if it succeeds, then return good status. 
: 2320 1 
ie 1 1 $ WHILE 1 DO 
; ¢ 158 BEGIN 
$ 159 STS = SRMS_PUT (RAB = _.RAB); : 
; & 160 .STV = .RAB chanel STvJ; 
; 2325 161 SSTRACE (EDTSSTR_OFW, EOTSSTR_SOFW_STS, ZUPVAL, RAB CRABSL_STS ); 
: $8 196 SSTRACE (EDTSSTR_OFW, EDTSSTR_SOFW_STV, ZUPVAL, RAB RABSL_STVJ); | 
: 2328 164 F (..$TS) THEN RETURN (1); 
i $355 185 : I $s EN RETU | 
; '¢ | 
3 ; 1 163 ' Check for the execeeded quota status. Use the CTX field of the rab 
3 2 ¢ 168 ! to indicate whether or not this file has already exceeded. 
; $387 14 le 
; $33¢ 171 4 IF ((..STS EQL RMS$_EXT) AND (..STV EQL SS$_EXDISKQUOTA)) 
; 3 1% 3 THEN 
: 3 1a? 2 BEGIN 
E the it? : If .RAB CRABSL_CTX] THEN RETURN (0) ELSE RAB CRABSL_CTX] = .RAB CRABSL_CTX] + 1; | 
: See 1 ~ | 
; 238 179 : EXITLOOP; 
 $3c¢ 181 2 END | 
: rk 3 Bad status other than exceeded disk quota, put out a message and return 0. 
; 2350 186 "RETURN (0); | 
; 2551 187 1 END; ! of routine EDTS$WR_OF] 
| .EXTRN SYSS$PUT | 
007c¢ 00000 -ENTRY EDTSSWR_OFI, Save R2,R3,R4,R5,R6 : 3090 | 
56 AC 00 00002 MOVL RK : 3144 
50 08 AC D 9006 MOVL FILE DESC, RO ; 
| 38 AS 04 Aad D OA MOVL 4(ROJ, 40(R6) ; 
2 A6 60 88 OOOF MOVW (RO), 34(R6) 5 3183 | 
50 Oc AC BO 90018 MOVL HB DESC, RO ; 3152 | 
OOFF =F 00 80 60 2C 0001 MOVCS (ROY, a4(RO), #0, #255, VFCHD : 
00000000' ¥ pei : 
6 DD 00024 1$ PUSHL R6 ; 3159 | 
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; Routine Size: 
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! ROUTINE VALUE: 


SIDE EFFECTS: 


NONE 
BEGIN 
MAP 
OLD_FILE_DESC : REF BLOCK C, BYTE), 
NEW_FILE_DESC : REF BLOCK C, BYTE?; 
LOCAL 


If the file is renamed successfully, 1; otherwise, 0. 


e, 

jones - 1/0 for VAX/VMS 1$-5e0-138% 90:33:33 VAX-11 Bliss-32 V4.0-74 Page 73 

REN_FI] = rename a temporary file to a per 14-Sep-1984 12:23:1 DISKSVMSMASTER:CEDT.SRCJIOMOD.B32;1 (23). 
! ZSBTTL ‘EDTSSREN_FI1 = rename a temporary file to a permanent file’ : 
1 GLOBAL ROUTINE EDTSSREN_FI ( ! Rename a@ file ; 
1 OLD_FILE_DESC ' descriptor of old filename F 
1 »NEW FILE DESC ! descriptor of new filename : 
1 -FORTE_MARV ! Force maximum version number 3 
1 2STS ! rms status word F 
: od te ! rms status value word : 
1 'e¢ = 
: : FUNETIONAL DESCRIPTION: ; 
1: This routine renames a temporary file to a permanent output file : 
} name string. : 
i FORMAL PARAMETERS: : 
1 OLD_FILE_DESC The address of a descriptor containing an old filename ; 
! NEW_FILE_DESC The address of a descriptor containing a new filename 3 
: FORCE _MAXV Force maximum version number 3 
; STS RMS status returned 3 
: : STV RMS status value word returned ; 
1} IMPLICIT INPUTS: ; 
1} NONE ; 
} {IMPLICIT OUTPUTS: 3 
1! 10_STS The Last 1/0 error message from IOMOD : 
: 10_STV ; 
1 i 3 
Zz 3 
1! : 
; ! : 
1 } 3 
1! é 
1! 3 
2% 3 
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—EDTS1OMOD EDTSIOMOD = 1/0 for VAX/VMS 18-se -19 :33° = VAX=11 Bliss-32_V4.0-7 Page 1%. ED) 
“¥O4=000 EDTSSREN_F1 = rename a temporary file to a per 12-88-1382 99: 33; :19 DISKSVMSMASTER: choi osrc 10MOD .832;1 . (23) VvOé 
oy 
B: 411 4 RSA, ° s 
3 re <3 N “RSL, | - 4 
13 241 rk N_DNA 2 ¢ 
: 2616 4& N DNs 3 6 
38 tS HA Ett at 
5 t39 ¢ <IF ett ht exBee PROT OPT) ZTHEN ; ¢ 
> 2618 5 KAB PU SXABPRO _DECL, : ¢ 
: 2619 54 ZF I ; ¢ 
> 2420 55 OLD_NAM_BLOCK : $NAM D | i ¢ 
: 2421 2$ OL TNAM-BLOCK PTR REF SiAM DECL, 2 ¢ 
; 24 ¢ 2 NEW_NAM_BLOCK : DECK ‘4 
i; ges 56 NEW-NAM-BLOCK_PTR : REF SNAM_DECL; i § 
: 2425 60 O_FNA = .OLD_FILE_DESC CDSCSA_ rereregss | 3 ¢ 
: 2426 61 O_FNS = “OLD FILE. DESC CDSCSW"LENGTH 7 ¢ 
3 2497 ¢ ZONA = ILE“DESC EDSCSA-P POINTERS: | i 
; rs o7 S N_DNS = NEWS FILE-DESC CDSCS$W-LENGTH); | : ‘ 
; 26 65 ! ; setup the FAB for the open. 3 4 
3 2431 66 : ¢ 
; 13 67 SFAB_INIT <FAB = OLD ; ¢ 
: 243 68 2 XIF ZDECCARED (HOUOTE HAS MPROT OPT) ARTHEN. 34 
3 2434 $9 $FAB XAB= X a4 
> 2435 0 $KABPRO_INIT (XAB = ZABPRO™ PROT AOPT = " <PROPAGATE>) ; | 34 
3; 246 U 3271 ZELSE s ¢ 
3; 243 U i SFAB_INIT (FAB = NEW_FAB); - ¢ 
; 24 7 ZF I 3 4 
3 2439 74 '¢ 3 4 
(3 24460 75 ! Initialize the name blocks. 3 ¢ 
> 2641 76 2 i- i ¢ 
; 2446 P 77 SNAM_INIT ( NAM = = OD NAM_BLOCK $4 
: 2446 P 78 nee “Haye 3 
3 24646 79 W es5. NAMSC_MAXRSS)); 34 
3 24465 80 NAN BLOC BIR. = MOLD NAM K; g 4 
; sees $e) OLD “FAB CFABSC_NAM] = .OLD_RNAM_BLOCK_PTR; ; ‘ 
2 2cs P $B SNAM_INIT ( NAM = neaO sh BLOCK 2 ¢ 
> 2669 P 3284 RSA = B0Fe 34 
; 24650 285 *RSS = MIN (255, NAMSC _MAXRSS)); sé 
> 2451 386 NEW_NAM_BLOCK PTR = NEU NAM_BLOCK 34 
; 43 87 NEW"FAB-CFABSC_NAM) = .REW_RAM_BLOCK_PTR; 34 
; ¢ 2 4 
3 ty: ; ! _Specify the file name. 24 
: 2456 91 OLD_FAB CFABSL_FNA] = .O_FNA; ; 
; tt ; OLD-FAB CFABSB_FNS) = .O-FNS; a4 
: 265 94 i In order to create the next highest version number when an explicit file + 
; 2460 95 i ; version number is given in the file spec, we must pass ';* as the file name. : 
38 aa { 
: 546 98 IF FORCE MAXV | 2 
> 2466 01 NEU_FAB (FABSL_FNA] = UPLIT (BYTE (*; ; + 
3; 2467 02 NEW-FAB CFABS$B"FNS) = 1; Length of FNA string 2 ¢ 
| 


| H 1 

EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:33 VAX-11 Bliss-32 V Pp - EDT 
Oba EDTSSREN_F1 = rename a temporary file to a per 1a-sep-19 4 09:33:49 DISKSVMSMASTER: tt BT she 10M0D .832;1 age 333 | v04 

: ae m aol 

: 2470 5 NEW_FAB CFABSL_DNA] = .N_DNA; | ; 

5 47] 5 5 NEW-FAB CFABSB~DNS] = .N~DNS; | ; 

; it, OB Attempt the the rename. Return FABSL_STS | 3 

; 475 10 " JO_STS = $RMS_RENAME (OLDFAB = OLD_FAB, NEWFAB = NEW_FAB); : 

: 3477 1 IF .10_STS | : 

: of 18 THEN ~ : 

: 2480 * 15 .CLD_NAM_BLOCK_PTR CNAMSB RSL; : 

+ 2681 16 STRING. _DESC T.OL5 FILE =DESC RSC, MYBUF); ; 

+ 248 1 RSL = .NEW_NAM BLocK R ENARSB SL}; ; 

; 48 18 STRING. DESC T.NEQ_ FILER “DESC. N nse shiur2) ; 
: 24685 20 ELSE : 2 
; 486 21 BEGIN ; 2 
; 488 $398 4 IF (OLD_NAM_BLOCK,PTR CNAMSB_ESL] NEQ 0) ; : 
: 2490 3 5 4 BEGIN 32 
> 2491 6 4 0. RSL = .OL p NAM _BLOCK_PTR CNAMSB_ESL3; : 2 
> 249 327 4 O-RSA = .OLD-NAMBLOCK~PTR CNAMSL~ESA]: 32 
; 3c $ STRING, DESC T.OLD_FILE-DESC, O_RSC, .0.RSA) ! get resultant filename : § 
: 2495 0 : 2 

: 2496 331 4 IF (.NEW_NAM BLOCK_PTR CNAM$B_ESL] NEQ 0) ; 
: 2697 332 3 THEN pi PER "ri x ; $ 
: 2498 33 4 BEGIN 3 
: 2699 334 4 N -RSL = .NEW_NAM_BLOCK_PTR CNAMSB_ESL]; : 2 
; 2300 335 4 N-RSA = .NEW-NAM-BLOCK~PTR CNAMSL~ESA): : 2 
; 301 3 STRING_ DESC T.NEQ_FILE-DESC, N_RSC, .N.RSA) ! get resultant filename ; 3 
; $208 38 72 
: 25046 $73 END; : § 
: $202 rk STs = : § 
; $307 59 id stv = a 10) °F ap CFABSL_STV); : 2 
> 2508 34 STV T 32 
; 2209 344 RETURN (. 10_ ST); : g 

3; 2510 345 1 END; ! of routine EDTSSREN_FI : 
0049 .BLKB 3 ; 
3B OOC4C P.AAD: <ASCII \:\ : ; ¢ 

.EXTRN SYSSRENAME ; 

OFFC 00000 -ENTRY Rigen FI, Save R2,R3,R4,R5,R6,R7,R8,R9,~ ; 3191 ; 

sf FEGO CE 9 002 MOVAB -448(SP : ; 

4 AC DO 000 MOVL OLD ‘ite "Desc. RB : 3260 ; 

4 as bp 008 PUSHL  4(RB) : : 

58 68 3C E MOVZUL (R8), O_FNS > 3261 ; 
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‘¥bc-000 EDTSSREN_FI1 = rename a temporary file to a per 14-Sep 5-19 38 99: 33 +3 DISKSVMSMASTER: CEDT.SRCJIOMOD.832;1 age 355 
7 8 AC D 11 MOVL NEW_FILE_DESC, R7 ; 
s SPER By ee Bs 
0050 8F 00 6E : 60 ¢ tte MOVCS #0, (spy, #0, #80, SRMS_PTR : 3267) 
BO AD 5003 BF B0 09 MOVW #20483, SRMS_PTR ; | 
C6 AD 90 00028 MOVB #2, $RMS_ PTRF é : 
CF oAD 9 90 99 F MOVE #2, SRMS~ “PTR+ : 
0050 «BF 00 6E a 0 2c 4 3 MOVCS #0, (SP)> #0, +80, SRMS_PTR 7 3269) 
FF60 cD OSDBS OE Mig MOVW #20483, $RMS_PTR : | 
FF76 =6CD 0g 0044 MOVB #2, $RMS_PTR722 : 
FF7F CD 49 MOVB #2, $RMS~PTR+31 : 
84 AD 00cc cE 9E 0004E MOVAB XABPRO, SRMS_PTR+36 : 
0058 = «BF 00 6E se 00 2c 90054 MOVCS #0, (SP), #07 #88, SRMS_PTR : 3270 
oocc CE 581 8F BO 00058 MOVW #22547, $RMS_PTR : 
00D7 —s«CéE 01 90 9006 MOVB #1, $RMS_PTR711 : 
V RMS_PTR : 
0060 &8F 00 6E - 00 2c 0006A MOVCS #0, (SP)> #0, #96, $RMS_PT 3279 
6C AE 6002 8F B0 00073 MOVW #26578. SRMS_PTR : 
6E 01 8E 00079 MNEGB SRMS_PTRF : 
70 AE 00000000' EF 9E 0007D MOVAB avéur’ SRMS PTR+4 : 
5 AE 9E 00085 MOVAB OLD_ NAM BLOCK, OLD_NAM BLOCK PTR : 3280 
D8 oA 56 D0 00089 MOVL OD “NAM_BLOCK_PTR, OLD FAB+40 : 3281 
0060 8F 00 &F 00 2c 9008p MOVCS , (SPY, #0, #96, SRMS. PTR : 3285 
Oc AE 6002 8F BO 00096 MOVW #24578, SRMS PTR : 
OF AE 01 8E 0009C MNEGB #1, S$RMS_PTRF2 : 
10 AE 00000000' EF 9E O00A0 MOVAB MYBUF2, SRMS PTR+4 : 
52 OC AE 9E 000A8 MOVAB NEW _NAM_B LOCK, NEW_NAM_BLOCK_PTR : 3286 
88 AD 52 DO OOOAC MOVL NEW"NAM “Bt oc PTR, NEW_FAB+40 : 3287 
DC AD 6E DO 00080 MOVL O_F LD_FAB+44 : 3291 
£4 AD 5B 90 000B4 MOVE O7FNS. cts “FAB+52 3 3292 
OA C AC 34 00088 BLBC FORCE_MAXV, 1$ ; 3298 
8C AD FF3F OCF 3 000BC MOVAB’ P.AA RADS NEW FAB+44 : 3301 
94 AD 01 90 000C2 MOVB #i. NEW FAB+52 : 3302 
90 AD 5A DO 000C6 18: MOVL N_ONA, “REW FAB+48 : 3305 
95 AD 59 90 OOOCA OVB  N-DNS, NEW-FAB+53 : 3306 
FF60 CD 9F 900cE PUSHAB NEW FAB ; 3310 
7E 7C 000D LROQ -(SP) : 
BO AD 9F 000D4 PUSHAB OLD_FAB ; 
000000006 00 04 FB 00007 CALLS #4, ~SYSSRENAME : 
00000000' ef 50 00 90006 MOVL : 
4 00000000" EF E9 OOE BLBC 5 : : 3312 
04 03 A6 QA b00E¢ MOVZBL {OLD _NAM_BLOCK_PTR), O_RSL ; 313 | 
00000000" EF 9F O00F1 PUSHAB : 3316 
08 AE 9F 000F7 PUSHAB 2 | 
58 DD OOOFA PUSHL ie : | 
000000006 00 03 FB O00F CALLS #3, STRSCOP : 
08 AE 03 A2 9A 0010 MOVZBL 3(NEW NAM OBLOCK. PTR), N_RSL ; 3317 
00000000' cf 9 019 PUSHAS A MYBUF 2 : 3318 
Ag 9 110 28 TSTB 11(OLD_NAM_BLOCK_PTR) : 3323 
17 «1 11 BEQL $$ : 
04 Ag 08 A6 9A 0011 MOVZBL 11(OLD_NAM_BLOCK_PTR), O_RSL : 3336 
5 C AG DO OOTIA MOVL 12(OLD“NAM~BLOCK"PTR), O-RSA ; 7 


<m 
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EDTS EDTSIOMOD - 1/0 for VAX/VMS 1-5 e 4 :3 VAX=-11 Bliss-32 V4.0-74 Page 77) EDT 
“¥O4=000-» EDTSSREN_F1 = rename a temporary file to a per 1 38 - 1386 99: 33: +3 DLEKSVMGMASTERSLEDT  SRCTIOMOD.B32;1 ° (255 VO4 
50 DD 001 PUSHL O_RSA : 3328 : 
| 08 A BF 1 PUSHAB O-RSL : : 
| 36 DD 001 PUSHL RE : : 
000000006 00 E 1 CALLS #3, STRSCOPY_R : : 
08 Ag 93 OO1gC 38: STB TY (NEW NAM_BCOCK_PTR) ; 3331 ; 
08 AE 08 A2 9A 00131 MOVZBL 11(NEW_NAM_BLOCK_PTR), N_RSL t 3334 : 
5 C A2 00 1 6 OVL 12(NEW-NAM_BLOCK_PTR), N-RSA + 3335 33 
50 DD 0013A PUSHL N_RSA ~ ; 3336 $3 
0c Ag 9F 0013C 4$: PUSHAB N-RSL : 
57 DD 0013F PUSHL R7 : 
000000096 00 03 FB O14 CALLS #3, STRSCOPY_R : 
1 BC 00000000" EF DO 00148 5$: MOVL 10'STS asts + 3341 
00000000' EF BC AD 00 0150 MOVL OLB_FAB+12, IO_STV : 3342 
14 BC 00000000" EF DO 0015 MOVL 10_STV, aSfv : 334 
50 00000000" EF 00 90160 MOVL 107STS, RO + 3344 
04 0016 RET > 3345 


; Routine Size: 360 bytes, Routine Base: _EDTSCODE + O0C4D 


; 2511 3346 1 
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OMOD = 1/0 for VAX/VMS bese -1984 73 VAX-11 Bliss-32 V 
: 7 99: 33 +3 DISKSVMSMASTER: tbo 
1 ZSBTTL ‘EDTSSFLUSH_OBUF = flush output buffers’ 
GLOBAL ROUTINE EDTSSFLUSH_OBUF ( ! Flush output buffers 
RAB, ' Address of the RAB 
sty ! 
= 


‘+4 
Veweticeees DESCRIPTION: 


This routine flushes the buffers for a file which is open for output. 
t FORMAL PARAMETERS: 


RAB Address of the RAB, representing the file whose buffers 


are to be flushed. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
: i ROUTINE VALUE: 

The status code from the RMS S$FLUSH call 
SIDE EFFECTS: 

NONE 


BEGIN 


P 
RAB : REF $RAB_DECL; 


LOCAL 
STATUS; 
SSTRACE (EDTSSTR fom EOIsstR SFLU_ISI, 2, RAB CRABSW_ISI)); 
STATUS US = (SRMS 5 EguSH _eRAB))T 
RETURN (. SAS: 
END; ! of routine EDTSS$FLUSH_OBUF 
.EXTRN SYSSFLUSH 
0004 000 ENTRY Rios nes OBUF, Save R2 
52 04 AC D0 6 MOVL 
52 DD PUSHL Re 

000000006 00 01 FB 0000 CALLS #1, SYSSFLUSH 


1 °SRCSIOMOD. B32; “ha 
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; Routine Size: 


; 2561 


EDTSEPLuSH_o8U 


21 bytes, 


3395 1 


for, ee tye 
° tlush output buffers 


08 BC OC A2 B? 90 00F 


Routine Base: _EDTSCODE + 0DB5 


ies 


ep- 
ep- 


1882 98:33:73 


VAX= 
DISK 


SUMSHASTER 


MOVL 12(R2), a@STV 
RET 


2 LbT sRcS10mop.832;1 


Pa 79 
9° (26) 


i 3394 


| m1 | 

/ EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX=11 Bliss-32 V4.0-74 Page 80 
Vv *$00 CC_ENABLE = enable for control C traps 14-Sep-19 4 19:38:19 DLSKSVMGMASTERSLEDT. SRCSIOMOD.B32; 1 . (285 | 
; 2563 36 1 ZSBITL ‘CC_ENABLE = enable for control C traps’ | 
3 re , ! ROUTINE CC_ENABLE ! Enable for control C traps 
H = | 
; 4] 35 1 
>; 256 4 1 !+4 
; 28 7 1 ! FUNCTIONAL DESCRIPTION: 
: $ 4 i 1! Enable for control C traps. When a control C trap is intercepted, the routine 
; 4 4 : : CC_LAST will be called. 
$ ig BS 1 ! FORMAL PARAMETERS: | 
3; 2574 8 1} 
; 2575 6 1! NONE 
; 28 09 1! 
3; 257 10 1 ! IMPLICIT INPUTS: | 
; 2578 7. 68 
: 2579 1} TT_CHAN | 
; 2580 > 3 CC_AST | 
; 2581 461! T_BEVCLASS 
3 286 15 1! 
; 258 1 1 ! IMPLICIT OUTPUTS: 
; eae 7 1! 
; 2585 13861! NONE 
; 2586 19 1! 
: 2587 0 1 ! ROUTINE VALUE: 
; 2588 ; ey 
: 2589 gi The status code from $Q10W, or 1. | 
; 2590 1! 
3; 2591 4 1! SIDE EFFECTS: 
5 236 .-9 @ 
3; 259 ® 7 Allocates and deallocates an event flag. 
; 2594 gk 
; 2595 8 1 !-- 
3 238 9 1 
; 259 0 BEGIN 
; 2598 Ht 
; 2599 § LOCAL 
; 2600 GETEF_ STATUS 
; 2601 FREEEF_STATUS, | 
3 ty: 5 i 
> 260 6 Q16_STATUS; 
3 2604 
; 2605 g git 
3 vty] 44 This routine is not called if we are reading a trace file. 
; 2608 41 SSTRACE_READING (<ASSERT (0)>); 
3; 2609 44 te 
3; 2610 44 ' Do nothing if SYSSINPUT is not a terminal. | 
$612 rr oa 
: ei$ re IF (.t devclass NEQ DCS$S_TERM) THEN RETURN (1); | 
3; 2615 44 '¢ | 
3 O16 44 ! Get an event flag for the QI°. 
3 261 450 te 
3; 2618 451 GETEF_STATUS = LIBSGET_EF (EF); 
3; 2619 452 


BNOUVUES WO 


Be Se ee Se eras Se eee 
PAAAAAAAO 


; Routine Size: 


l 
NABL 


105 bytes, 


1/0 for VAX/VMS base 1984 :3 
enable for control C traps 12-808- 1382 99: 33 3 


IF ( NOT .GETEF STATUS) THEN SIGNAL_STOP (.GETEF_STATUS); 


QIO_STATUS = $Q10W (EFN = .EF, CHAN = 
FREEEF_STATUS = LIBSFREE_EF (EF); 


IF ( NOT .FREEEF STATUS) THEN SIGNAL_STOP (.FREEEF_STATUS); 
RETURN (.QI10_STATUS); 
END; 


s-32 V 


AX-11 BLi 
I SMASTER: Ebr she 1OMOD .832;1 


VAX 
DISKSVM 


! of routine CC_ENABLE 


-EXTRN SYS$Q10W 
Q00C 00000 CC_ENABLE: = 


WO Save R2,R3 
53 000000006 00 9 00002 MOV LIBSSTOP, R3 
SE 04 C2 00009 SUBL2 #4, SP 
00000042  8F 00000000' EF b 6900¢ CPL T ,DEVCLASS, #66 
50 01 00 90019 MOVL #1, RO 
04 0001C RET 
5E DD 0001D 1$: PUSHL SP 
000000006 00 01 FB 9001 CALLS #1, LIBSGET_EF 
05 50 €8 00026 LBS GETEF STATUS, 2$ 
50 DD 00029 PUSHL GETEF-STATU 
63 01 FB 00028 CALLS #1 LraseTOr 
7E 7C OOOZE 28: CLRO 0 ._ = (§P) 
7E 7C€ 00030 CLRQ  =(SP) 
7E D4 0032 CLRL -(SP) 
O0000v CF 9F 00034 PUSHAB CC_AST 
7E 7C 00038 LRQ ss = (SP) 
7E p4 D005A LRL -(SP) 
7E 0123. BF 3C 0003C MOVZ2Wi #291, -(SP) 
cooonnyy” ae Bb B38) URE Cia 
000000006 99 0c FB 004A CALLS #12, SYS$QI10W 
2 50 pO 00051 OVL RO, Q10_STATUS 
SE 0D 00054 PUSHL SP 
000000006 0° gi FB 90036 CALLS #1, LIBSFREE_EF 
05 0 €8 0005p LBS FREEEF_STATUS, 3% 
50 DD 9006 PUSHL FREEEF STATUS 
$3 o4 FB 0006 CALLS #1, LIB$STOP 
0 2 0 9006 3$: MOVL QI0_STATUS, RO 
4 00068 RET 
Routine Base: _EDTSCODE + ODCA 


Page 28) 


-TTLCHAN, FUNC = JOS_SETMODE + IOSM_CTRLCAST, P1 = CC_AST); 


3456 
3458 


3460 
3461 


<m 


EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16- $ep-1984 :3 VAX-11 Bliss-32 V4.0-74 Page 82. 
CC_AST = take a control C trap = 3ep- 1986 99: 33: +3 DISKSVMSMAST TER SEEDY SRCTIOMOD.B32;1 . (26) | 
: 26 463 1 XSBTTL ‘ce Ast - take a control C trap’ 
; 2631 465 1 ROUTINE CC"A ! Take a control C trap 
: 26 ¢ 464 1 : fovACUE = | 
: 26 465 1 
: 26 108 1 !e4 
; 5 ter : FUNCTIONAL DESCRIPTION: 
: 6 469 1! This is the AST routine for CTRL/C. Simply set the EDT$$G_CC flag and 
: 2638 470 1! re-enable the AS]. fs os ° 
> 2639 471 1! 
: 2640 47 1 ! FORMAL PARAMETERS: | 
: 2641 473 1! 
3 re 474 1! NONE 
> 2646 475 13 
> 2644 476 1 ! IMPLICIT INPUTS: 
3 sot? 477 1! 
; 2646 478 1! NONE 
3; 2667 479 1! 
3; 2648 480 1 ! IMPLICIT OUTPUTS: 
: 2649 481 1! 
; 2650 482 1 | EDT$$G_CC 
3; 2651 483 1! 
; 265 484 1 ! ROUTINE VALUE: 
3 se? 485 1! | 
3 2654 486 1! NONE 
; 2655 487 1! 
: 2656 488 1 ! SIDE EFFECTS: | 
3; 2657 489 1! | 
; 2658 490 1! Calls CC_ENABLE to re-enable control C traps. 
3 so28 3491 1! 
; 2660 3492 1 !<- 
: 2661 3493 1 
3 5006 3494 $ BEGIN 
3: 266 3495 EDT$$G_CC = 1; 
3 2664 3496 2 CC_ENABLE (); 
: 2665 3497 * END; ! of routine CC_AST | 
| 
._.0000 00000 CC_AST: .WORD Save woreing : 3463 
000000006 00 1 : 00002 MOVL 1, EDT$$G_CC : 3495 | 
BA AF 00 0009 CALLS #0, CC_ENABLE : $238 | 
Oe 000D RET 3 3497 | 


Routine Size: Routine Base: 


14 bytes, 


-EDTSCODE + 0€33 


—_ 


eB 
EDTSIOMOD jones - 1/0 for VAX/VMS ak at 9 90:33:33 VAX-11 Bliss-32 Pgs Page 95 
04 TERM_RCC = restore from control C 14-Sep-1984 12:23:19 DISKSVMSMASTEP:CEDT.SRCJIOMOD.B32;1 (27) 


ZSBTTL “EDTSSTERM_RCC - restore from control C' 
GLOBAL ROUTINE EDTSSTERM_RCC ! Restore from control ( 
: NOVALUE = 


mm 


oo 4 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


Do any system-dependent restoration of the terminal that is needed 
after a control C is processed. None is needed on VAX/VMS. 


FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


oOo Rho 


oO 
WI SODO NONE OOO NAMEN ODO RRO oe ww 


NIN a hk kk hh tt td oh tS 


WAIN PONPONOPOPUNoONgNONn 2 2 2 


END; ! of routine EDTSSTERM_RCC 


0000 00000 ENTRY EDTSSTERM_RCC, Save nothin : 3500. 
00002 RET - “ ’ : 328 


; Routine Size: 3 bytes, Routine Base: _EDTSCODE + 041 


; 2703 3534 1 


iilakcitasladieesuaeeeein 


2 
OMOD = 1/0 for VAX/VMS 18-Sep-1984 00:35:33 VAK-11 Bliss-32 V4.0-74 Page 84 egy! 
TI_OPN = open the terminal 14-Sep-19 7:23:19 DISKSVMSMASTER: CEDT.SRCJIOMOD.832;1 (28) 


as 
" 


ae 
ww 
n-— 


D 
9) 
3 796 } ZSBTTL “EDTSSTI_OPN = open the terminal’ 
: 27 1 GLOBAL ROUTINE EDT$$T1_OPN ! Open the terminal ; 
: $708 gi - r i R 
3; 2709 1 
; 2710 re 1 !44 . 3 
$ ay : : } FUNCTIONAL DESCRIPTION: ° 
: rg a8 1! This routine opens the files SYSSINPUT and SYSSOUTPUT for terminal 
3 e716 544 1! 1/0. 
3; 2715 545 1! 
s rig 248 1 ! FORMAL PARAMETERS: 
: 271 @e 
: 2718 548 1! NONE 
3: e719 549 1! 
; 2720 550 1 ! IMPLICIT INPUTS: 
: 2721 551 1! 
i 3fee 258 1 TT_OPEN 
3: e7 555 1! 
3; 2726 554 1 ! IMPLICIT OUTPUTS: 
: 2725 555 1! 
: 2726 036 1 TERM_IN_RAB 
; 27e7 55 1! 10_STS 
3; 2728 558 1! 10 STV 
: 2729 559 1 | TERM_OUT_RAB 
; 27 560 1! T_OPEN 
3; 2731 561 1! EDTSSG_TI TYP 
3; e7 ¢ 266 1! EDT$$G_DE 
s a7 56 1! EDT$$G_EIGAT BIT 
: 2734 564 1! EDT$$G_TI_SCROL 
; ster $202 1! EDTS$$G_TI 
i 3036 566 1 | EDT$$G_ENB_AUTRPT 
: 2737 56 1! EDT$$G_TI Bums 
; sree 568 1! T_DEVCCASS, etc 
3: 2739 569 1! 
; 2740 570 1 ! ROUTINE VALUE: 
s 2741 ora Uda 
3 rs 276 1! 1 
> 274 573 1: | 
; sree are : : SIDE EFFECTS: 
3 27K 576 1! If SYSSINPUT or SYSSOUTPUT won't open, calls EDTSSIO_ERRMSG , 
3 2747 ee @. then exits without returning to the caller. 
3; 274 278 1! 
3; 274 57 1 !-- 
: 2750 580 1 
; 2751 581 BEGIN 
; 275 286 
3; 275 58 LOCAL 
> 2754 384 EF_STATUS, 
3; 2755 585 
: 275 oT 14 010 STATUS, 
3 275 587 TEA LIST : KVECTOR C7, 3) FIELD (ITEM_FIELDS) ! $torage for terminal char. 
> 2758 288 T INFO : BLOCK C2) FIELD (SéTH_FIELDS) ' for setting terminal char 
> 2759 589 E_BUF : VECTOR L64, BYTE), 
: 2760 590 NAME-DESC : VECTOR @i. 
+ 2761 591 RES_DESC : VECTOR Ce). 


2 

DT $1 OMOD = 1/0 for VAX/VMS 16-Sep-1984 90: 33:3 VAX-11 Bliss-32 V4.0-74 Page 3 | 

DT Hi TI_OPN = open the terminal 14-Sep-1984 12:25:1 DISKSVMSMASTER:CEDT.SRCJIOMOD.B32;1 (28) 
: 276 WORK_FAB : SFAB_DECL; 
; 276 38 as 
3; 27646 94 '¢ 
; £9? 32 q If the open has already taken place, return immediately. 
; re 39 
: 2768 98 IF .TT_OPEN THEN RETURN (1); 
: 2769 99 
; 2770 600 '¢ 
3; e771 ret _Don" t pass this way again. | 
$1 608 $° TTOPEN = 1; 
3 2774 $02 
; 4g ret | seen the trace file, and write the first record on it. 
: 277 607 
: 2778 L 3608 ZIF edt$$tr_act 
3; 2779 U 3609 THEN 
: 2780 U 3610 BEGIN 
: 2781 U 3611 
: 278 U oi¢ EXTERNAL ROUTINE 
P sie U 361 EDTSSTR_OPN : ADDRESSING_MODE (GENERAL); 
> 2784 U 3614 
3; 2785 U 3615 EXTERNAL , 
; 2786 U 3616 EDTSS$L_TR_INFLG; ! 1 iff input from trace file 
3: 2787 U 3617 2 
; 2788 U 3618 2 CAL 
3; 2789 U 3619 § OPEN_ STATUS 
: 2790 u sft ‘ TRACE_READ_STATUS; 
; a3 u 36 é é OPEN_STATUS = EDT$STR_OPN (EDTSSL_TR_INFLG); | 
Py | 
H ia] ; 36 : 2 IF ( NOT .OPEN_STATUS) THEN SIGNAL_STOP (.OPEN_STATUS); 
: 2796 : : $ $ SSTRACE (EDTSSTR_START, EDTSSTR_SSTART_INIT, 0, 0); 
5 '¢ 
: 2798 U 36 8 5 ! If we are reading a trace file, read the first two records and don't open 
; 3444 u 3680 : i. tie terminal. 
3 
; 2801 u 631 é TRACE_READ_STATUS = $STRACE_READ (EDTS$STR_START, EDTS$STR_SSTART_INIT, 0, 0, 0); | 
; $805 U 635 é IF (. TRACE_READ_STATUS) 
3 2804 U 3634 THEN 
; 2805 U 3635 § BEGIN 
; 2806 U 36 SSTRACE_READ (EDTSSTR_START, EDTSSTR_SSTART_TERM, ZUPVAL, EDTS$$G_TI_TYP, 0) 
: 2807 U 3637 § EDT$$G_BEC_CRT = 1; 
3; 2808 U 3638 EDT$$G_EIGAT BIT = 0; 
; 2809 U 3639 EDT$$G_TI SCROLL = 1; 
: 2810 U 3640 EDT$$G_ENB _AUTRPT = 1; | 
3: 2811 U 3641 EDT$$G_TI_EDIT = 8: 
; Big U ra EDTS$$G_TI_DUMB = 0; 
: 281 U 364 t_devclass = DC$_TERM; 
; Bis 7 eee SeTRACE (EDTSSTR_ “Start. EDTSSTR_SSTART_TERM, ZUPVAL, EDTS$$G_TI_TYP); 
3 Big U 28 
; 281 U 364 
; 2818 648 


<m 


go 


a 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:33 VAX-11 Bliss-32 V4.0-74 Pp EDT! 
BL sO00 EDTSS11 0 = open the terminal 1e=80 8-1 384 99:3 :19 DISKSVMSMASTER: CEDT.SRCJIOMOD.B32;1 19° 28) V04: 
; 2819 649 ; 2 
; 2820 650 '+ ; : 2. 
: ; 1 $2) } If we are reading a trace file, bail out now. + 2, 
; : § 638 SSTRACE_READING (<RETURN (1)>); ; 
; 825 695 ! Open the SYSSINPUT file for terminal input. | ;§ 
: 28 : gas " ‘ $FABLINIT (FAB = WORK_FAB, FAC = <GET>, RAT = CR); | 7 3 
; 2828 658 WORK~FAB FFABSL_ENA = UPLIT BYTE('SYS$INPUT"); | : 3 
; 2829 659 WORK_FAB [FABSB_F = 9; ¢ 2 
3 8 9 660 SRAB_INIT (RAB = TERM_IN_RAB, RAC = SEQ, UBF = MYBUF, USZ = 255, FAB = WORK_FAB, RHB = VFCHD, CTX = 0); | : 2 
: 28 66 IF (EDT$$G_I0_STS = SRMS_OPEN (FAB = WORK_FAB)) : 3 
; Bag £08 THEN pens > . : 3 
3 eee 64 BEGIN ; 2 
: oa? 903 EDT$$G_IO_STS = SRMS_CONNECT (RAB = TERM_IN_RAB); : ; 
3 2837 667 IF ( NOT .EDTS$G_IO_STS) THEN EDTS$G_IO_STV = .TERM_IN_RAB CRABSL_STV]; | : ; 
; $836 669 3 END | : 3 
3 2840 670 ELSE | 3 3 
; 3841 671 EDTS$$G_IO_STV = .WORK_FAB CFABSL_STV]; : ; 
: 58c8 67 IF ( NOT .EDT$$G_I0_STS) | ; 3 
+ 2844 674 THEN | : 3 
: 2845 675 BEGIN | > 3 
3 2846 676 SIGNAL_STOP (EDTS_OPNINTRM, 0, .EDTS$G_IO_STS, .EDT$$G_IO_STV); ; 3 
3 2847 677 END; ; 3x 
; 2848 678 : 3 
; 2849 679 \+ 3 2 
3 2851 o80 § Open the SYSSOUTPUT file for terminal output. 3 : 
é agi * 2 
3 832 368 2 SFAB_INIT (FAB = WORK_FAB, FAC = <PUT>, RAT = CR); | 3; 3 
> 285 68 WORK~FAB CFABSL_FNA = UPLIT BYTE(*SYS$OUTPUT"); ; H 
; 2854 684 2 WORK_FAB_CFABSB_FNSJ = 10; : 3 
: $035 3685 2 SRAB_INIT (RAB = TERM_OUT_RAB, RAC = SEQ, UBF = MYBUF, USZ = 255, FAB = WORK_FAB, RHB = VFCHD, CTX = 0); | : : 
; $Be 687 j IF (EDT$$G_IO_STS = SRMS_CREATE (FAB = WORK_FAB)) 3; 3. 
° 858 3688 THEN | 3 3, 
3 2859 689 BEGIN : 3 
3 B60 3030 EDT$$G_IO_STS = SRMS_CONNECT (RAB = TERM_OUT_RAB); 3 3 
; 2863 69 IF ( NOT .EDT$$G_IO_STS) THEN EDT$$G_IO_STV = .TERM_OUT_RAB CRABSL_STV]; ; ; 
: 2864 694 END | : 3, 
3 2865 695 ELSE 7 3. 
; aoe O96 EDT$$G_IO_STV = .WORK_FAB CFABSL_STV); | : 3 
; bog 698 IF ( NOT .EDTS$G_IO_STS) THEN SIGNAL_STOP (EDTS_OPNOUTTRM, 0, .EDT$$G_IO_STS, .EDT$$G_I0_STV); | 3 ; 
: 2870 00 2 I+ : 
: 14 4 Now also open the terminal for $010s. 
: Bre 788 " EDT$$G_DEC gat = 0; ' Make sure this variable is initialized 
+ 2874 704 NAME _DESC § i = 9; 
3 2875 705 NAME~DESC (1) = NAME_BUF; 


MIMNMNMNNIN 2 2 


SOCCCOSS DODODODOOOOVOOO 
SVSSSVUSRRAN SSownaner 


T 
T 
Q 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


$ 
$ 
; 
8 
9 
0 
1 
§ 
4 
5 
6 
7 
& 
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1 
5 
4 
5 
6 
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5 
6 
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; 


2 
IE Srestt (03388 


NAME_BUF); 


Toe - 1/0 for VAX/VMS 
= open the terminal 


Ps pese-ci MEM 0" eh : SYSSINPUT'), 

RES-DESC ct : ‘. 

WHILE (S$TRNLOG (LOGNAM = 
BEGIN 


VAX=-11 Bliss=32 V4.0-74 
DISKSVMSMASTER:CEDT.SRCJIOMOD.B32;1 


NAME _DESC, RSLLEN = NAME_DESC [0], RSLBUF = RES_DESC) EQL SS$_NORMAL) DO 
We (NAME _BUF) EQL 27) 
NAME “DESC 
to} 


“wn. -DESC 


ELSE 
NAME _DESC (1) 


IF (CHSRCHAR (CHSPTR (.NAME_DESC [1], .NAME_DESC [CO] - 1)) EQL %C':") 
NAME _DESC (CO) = .NAME_DESC [0] - 1; 
END; 
NAME _DESC [1] = 


= CHSPTR Sr: gue. 4); 
= .NAME_DESC (0) - 4; 


CHSPTR (NAME_BUF); 


NAME _BUF ; 
IF SASSIGN (DEVNAM = NAME_DESC, CHAN = TT_CHAN) 


We need to access device 
i chars characteristics, f+ tap dependent characteristics, extended 
aracteristics, and class. 


0M 0 TO 5 DO 
LIST C.1, BF_LEN] = 
LIST C.1, RLENS NOR) © s 0: 


1 cope) = _OVIS DEVCHAR; 
BOF A 


'¢ 


ee et Be ae et mt Den sn Oe 
4a 4s 
mmemnrnmmmmmmmenn 
PEP ERPS SE FS SS FF 
eeereeerrererece 
Beas beng Beat Bean Bae be Rene ne beng Bee ee Bes Be 
ANVNMNHNHHNHHNHUNYW 
As 


VCH 
I CODE = ovis. DEVCLASS: 
BOF géve lass: 

I COE. = “pv DEVDEPEND; 


BOF _A VDEP; 

= pvI$ “ DEVDEPEND2:; 
B0 DR) = t_devextdep; 
ee | 18.0 DEVTYPE; 


DR) = 
CODES = DuTS ‘SBS su 
BOF_ADR) = T_ : 
1_CODEJ = 0; 


Qu SWWNN— OO 
ese ese eeeeeeees 
— 

on "oO 
3; 
o> 
mo 


! End of item List 


i Get an event flag 


OM 
T1_0 
4 
3 
4 
4 
4 
: 
t BEGIN 
3 i i oe up the item List for the $GETDVI routine. 
4 
4 


EF_STATUS = 


LIBSGET_EF (EF); 


Page 8 


EDT! 
v04: 


3, 


4 ke 
EDTSIOMOD EDTSIOMOD - 1/0 for VAX/VMS 16-Sep :35:3 VAX-11 Bliss-32 V4.0-7 Page 88 
104-000 EDTSSTI_OPN = open the terminal 14-Sep 7138e 98: 33: +3 DISK KSVMER STER: ED ’sre 10MOD .B32;1 ss (285. 
: 2933 763 
: ; : ree IF ( NOT .EF_ STATUS) THEN SIGNAL_STOP (.EF_STATUS); 
; 2g 108 SGETDVI (EFN = .EF, CHAN = .TT_CHAN, DEVNAM = NAME DESC, ITMLST = ITEM_LIST); 
; 3 i 167 SWAITFR (EFN = .EFS; 
>; 2939 £9? 4 IF (.t devclass EQL DC$_TERM) 
> 294 770 3 N 
: 2941 771 & BEGIN 
3: 294 ak 4 ‘+ 
3; 294 773 & | Get terminal width. If this is not a terminal, then the width has 
3 2944 774 4 ! previously been initialized to '80' 
: 2945 775 & i- 
5 $ 76 4 EDT$$G_TI_WID = .T_DEVWID; 
> 294 777 & ‘4 
: 2948 778 4 ‘' Get terminal type. 
3: 2949 779 & i- 
: 2950 780 4 
; 2951 781 4 SELECTONE .t_devtype OF 
: 326 782 4 SET 
: 295 783 4 
3; 2954 784 4 COT$_vT52, DT$_VT55) : 
; Seer 785 5 BEGIN 
; 2956 786 5 EDTS$G_TI_TYP = TERM_VT52; 
: 2957 787 «5 EDT$$G_TI_SCRO 7 0; 
: 958 788 5 EDT$$G_ENB_AUTRPT = 0; 
3: 2959 789 5 EDTS$G_TI_EDI7 = ‘. 
: 2960 790 5 EDTS$G_TI_DUMB = 0; 
3 2961 3791 4 END; 
$ 4 792 4 
: 296 79 4 COT$_VT100, DT$_VT125) : 
: 2964 3794 5 BEGIN 
3; 2965 3795 5 EDTS$G_TI_TYP = TERM_ vT100; 
3 $308 796 5 EDTS$$G_TI-SCROLL = a 
3; 2967 797 «5 EDi$$G_ENB_AUTRPT 
3 2968 798 5 EDT$$S6_TI_EDIT = t_dovextdep CTT2$V_EDITI; | 
: 2969 799 5 EDTS$G_ _T1_DUMB = 0; 
: 2970 800 5 edt$$g_dec_crt = 1 
3: 2971 801 4 END; 
3 397 B02 4 
3: 297 803 4 COTHERWISE) : 
3 2974 804 5 BEGIN 
3 2975 805 5 EDT$$G_TI_TYP = TERM_HCPY; ! In case this is not a CRT 
: 297 ; : EDTS$G_ TI-SCROLL = 0; 
: 297 0 EDT$$G_ENB AUTRPT = = 6: 
: 4A rt) ta atte TI_EDIT = 
: 2980 810 5: "the terminal driver has extended characteris! ics if any bit is set in 
: 2981 811 i T DEVEXTDEP. If this is a CRT with at least /T100 functionality, treat 
3: 298 alg i if as a VT100. 
; 298 1 te 
3 2984 814 
; Ms a2 g {f° T DEWDEP CTT$V_SCOPE] §\ND .t_devextdep CTT2$V_ANSICRT]) 
; oB9 BI? 6 BEGIN 
: 2988 518 6 EDTS$G_ La = TERA VT’ 10; 
3; 2989 19 6 EDTS$G_TI-SCROLL = .f _de 'extdep CTT2$V_DECCRTI; 


<m 
FS 


bet Et Cr gh a+ 4) 9+ ot 500) 50 gr a+ th 0+ th 5+ gh grt: 


WWW 


a a a aaa as a 


2 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 1h-58 -198: :35:3 VAX-11 Bliss-32 V4.0-74 Page 89. 
bu tO00 EDTS$11 OPN = open the terminal 12-808- 13k 99:33:75 DL SKSVMGMASTERSLEDT  SRCTIOMOD.B32:1 " 2) 
: 4 9 6 - EDTSSG_TI_LEDIT = .t_devextdip CTT2$v_EDITI; 
; 388 § 6 | Set the terminal "service class" specifier. 
: $392 he 
: 995 5 6 ZIF ZDECLARED(XZQUOTE TT2$V_DECCRT2) XTHEN 
: a4 8 $ 6 F .t_devextdep CTT2$V_DECCR 2] THEN 
; 299 8 6 edt$$g_dec_crt = 2 
; 2998 4 8 6 LSE 
; 2999 9 6 SFI 
; 3000 830 edt$$g_dec_crt = 1 
: bbs § 1 END; 
; 008 ass 5 EDT$$G_TI_DUMB = 0; 
; 3004 834 4 END; 
; 3005 835 4 TES; 
; 3006 836 4 
3 iad 837 4 !¢4 
; 3008 838 4 ! Set the eight-bit flag and store the page length. 
$ soyp 3839 4 !- 
; 3010 3840 4 EDTS$$G_EIGHT BIT = .T_DEVDEP CTT$V_EIGHTBITI; 
; 3011 3841 4 S EDT$$G_TI_PLEN = .T_DEVDEP CTT$V_PAGE); 
; 3013 Hk 4 | Set LOWER attribute and disable escape sequences if not already done 
Be HE EE 
; 3016 3846 5 IF (.T_DEVDEP CTTS$V_ESCAPE] OR ( NOT .T_DEVDEP CTT$V_LOWERJ)) 
; 3017 sere 4 THEN 
; 3018 848 5 BEGIN 
; 3019 $608 5 TT_INFO CS_CLASS] = .t_devclass; 
: 3020 850 5 TT_INFO CS_TYPE] = .t devtype: 
: 3021 3851 5 TT_INFO CS_WID) = .T_Bevwid; 
; 3022 3026 5 TT- INFO CS-CHAR) = .T_DEVDEP; 
; 3023 $2 5 BLOCK BIT INFO S_CHAR], TTSV_ESCAPE) = 0; 
; $05¢ Saee ; BLOCK CTT~INFO CS-CHARJ, TI$SV_LOWER] = 1; 
: 3059 $e29 2 QIO_STATUS = SQ10W (EFN = .EF, CHAN = .TT_CHAN, FUNC = IO$_SETMODE, P1 = TT_INFO); 
; 3058 3555 5 IF ( NOT .QIO_STATUS) THEN SIGNAL_STOP (.QI0_STATUS); 
: 94 859 5 
; 30 3860 5 EDT$$G_TI_RESET = 1; 
3 B3) 9h 2 END; 
: 30 : $8 oot 
; 30 4 ! Free up the event flag 
; 3035 503 4 !- 
; ots B67 ? EF_STATUS = LIBSFREE_EF (EF); 
: 3038 868 4 IF ( NOT .EF_STATUS) THEN SIGNAL_STOP (.EF_STATUS); 
; 040 $90 ar 
; 3041 71 4 ! Enable control-c handling. 
; Beg 72 4 !- 
: 304 73 4 CC_ENABLE (); 
: 3044 74 4 N 
; 3045 75 ; ELSE 
> 3046 76 EDT$$G_TI_TYP = TERM_UNKNOWN; 


< 


WANA WANN AAA ANNAN AANA AANA AAA AAA 


vee-dt0 


geneenens F 
UERWNO0ON 


0050 


EDTEL OROD - 1/0 for VAX/VMS 1b-5e 
EDTSSTI_OPN = open the terminal 
as END 
19 
0 + 
ss ‘ Write second startup record. 
Bac 
885 END; 
54 res 4 59 53 O0E44 P 
54 55 33 20 ef 4 3 59 53 QOE4D P. 
400 00 00 54 55 50 4E 39 24 53 59 53 BOE ee P. 
OFFC 00000 
5B 00000000G 00 9€E 00002 
SA 434 $54 $143 00 9€ 00009 
59 000000006 + 9E 00010 
58 444 454443 0 9E 00017 
57 00000000G 00 9E BRO te 
56 00000000' EF 9E 0002 
3 FFOO CE 43 0002C 
0 FE80 g6 4 44 1 
0356 31 000 
FE8O C6 01 00 4 9 
8F 00 6E 00 2C 000 3 
04 AE 0004 
04 AE 5003 8F B60 4-94 
1A AE 02 90 00040 
$6 AE 0202 8F B80 00051 
O AE 86 Ss AF 43 booee 
38 AE 09 90 0005C 
8F 00 6E 00 2c 4 
FDEC C6 006 
FDEC C6 4401 = BF 4 Boh 
FEOA £6 4 1 
FEOC §C6 FF F 9B 75 
FE10 §= C6 FAIO C6 9E 00 
Fel C6 FEFC C6 9E 00 $ 
FE2 C6 04 AE 9E 000 
04 AE OF BSS 
00000000G 00 1 F 
$8 6 D 
1 3 9C 
FDOEC C6 OF OF 
00000000G 00 9 F nr 
66 0D : AA 
1E 66 € OAD 


Sep-19B4 12:28:19 DISKSUMSRASTERSCEDT- SKC 


1 °SRC410MOD.B32:1 


SSTRACE CEDTSSTR_START, EDTSSTR SSTART_TERM, XUPVAL, EDTS$G_TI_TYP); 


! of routine EDTS$TI_OPN 


SRMS_PTR= 
SRMS_PTR= . 


1$: 


\SYSSINPUT\ 
\SYSSOUTPUT\ 


1 
\SYSSINPUT\<0><0><0> 
TERM IN a 


TERM_OUT_R 
STRNLOG, STSSASSIGN 
SGETDVI, SYSSWAITFR 


ihe OPN, Save R2,R3,R4,R5,R6,R7,R8,R9,- 


R10 


PE 
, #0, #80, SRMS_PTR 


#20483, SRAS_PTR 

#2, $RMS_PTRI22 
#514 SRAS PTR#30 
PAE ORR FAB+44 

#9, WORK F AB+S 

#0, (SP)7 ra. #68, S$RMS_PTR 


#17409, SRMS_PTR 
+30 7 

MYBUF, $RMS_PTR+ 

VECHD, $RMS"PTR+44 

W WORK. FAB. SAMS _PTR+60 

i. SY SEOPEN PEN 

DTSS6_ 10_STS 
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A6é 


A6 
E 


NOPF PCO —-O8O [OOOO 
mA AAMAS OFSO SOOO 


00 
01 
18 


AE 
AE 


HAPOOOMOONMN1OF POOWOWOOOCOWOW>r NO 
MAAAOAOO— MMA NWA NAOPYP TMH MMOL 


oon 
mM 


NMS "OM "OMO"OOOO0OOD VSCSSoe wr"VWO~MNO—-o 
TFOO—CWOOCD"OOCWMMMBDLO Com OWT f£OIWO—0 


SOOCCGCOCOCOOOOCOOCOOOOCOOOOOOOOOOOOOOOCOSOOOOOOOOOOOOOOOOOOOOOOOOO 


SOOOCCOSOCOCOSOCOSOOSOOCSOSOCSOSOSSOSOSSSSOSSOSSSSSCOSSOSSOSSCSOCOOSOSOOOOOSOOOOOOOCoOO 
co ~“ 
Sad ww PAM 


OO 0-9 700 
RMN = OAT 


< p 38¢ 90:33:38 VAX-11 Bliss-32 V4.0- 


DISKSVMSMASTER:CEDT.S 
RM_IN_RAB+12, EDT$$G_10_S 


WORK FAB+12, EDT$$G_I0_STV 
EDT$$G_I0_SfS, 4$ 
EDIS$G_10_STS, -(SP) 


#EDTS_OPNINTRM 
#4, LIBSSTOP 
#0, (SP), #0, #80, SRMS_PTR 


#20483, SRMS_PTR 
#1, $RMS PTRT22 
#514, SRAS PTR+30 
P.AAF, WORR FAB+44 
#10, WORK_FAB+52 
#0, (SP),"#0, #68, $RMS_PTR 
#17409, SRMS_PTR 

+30 


sams PAR 
#2537 SRMS PIR+32 
MYBUF, $RMS_PTR+36 


VFCHD, $RMS~PTR+44 
WORK FAB, SRMS_PTR+60 


K 
#1, SYSSCREATE 
RO, EDT$$G_10_STS 


E 
EDT$$G_10 STS; 7$ 
TERM_OOT_RAB+12, EDT$$G_10_ 


WORK_FAB+12, EDT$$G_I0_STV 
DT$S$G_IO_Sts, 7$ 
DISSG_IO_STS, ~(SP) 
#EDT$_OPNOUTTRM 

EDTS$G Dec CRT 

#9, NAR oe $ 

NAME BUF; NAME_DESC+4 

“9, ° e UF 
NAME_BUF, RES_DESC+4 
RES_DESC 


NAME 
#6, § 
RO 

11 

RANE _BUF . #27 


NAME_BUF +4, NAME_DESC+4 
#4, RAME_DESC 


} 
74 Page 91 | 
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= open the terminal 


OMOD = 1/0 for VAX/VMS 
T1_OPN 
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EDIsS 
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EDTSIOMOD EDTSIOMOD - 1/0 for VAX/VMS 6-Sep-198 90: : VAX-11 Bliss-32 V4.0-7 Page os 
EDTS 4-Sep-198 


DT$1OMOD 1 p-1984 00:35:33 
v04=000 DT$$TI_OPN = open the terminal 14-Sep-1984 12:23:19  DISKSVMSMASTER:CEDT. sre 10M0D.832;1 (28) | 
| 
5 DO 00378 MOVL RO, EF_STAT : ; ag! 
86 ; 4 0 re BLBS = EF_STATUS ATR + 3868 | : 3 
DD PUSHL EF -STATUS : | ay 
67 01 FB 00383 CALLS #17 (BSS TOP F an? 
FBDB OCF 0 FB 0386 25$: CALLS #9 CC_ENABLE 3 3873 2 3 
02 1 B BRB s27$ : 3769 : 3 
6 D4 368: CLRL EDTS$G_T1_TYP : 3876 any 
50 1 00 fF 27$: MOVL #1, R + 3884 : 2 
04 2 ; 3885 . 2, 
; Routine Size: 915 bytes, Routine Base: _EDTSCODE + 0664 : 3 
: 3 
; 3056 3886 1 : 3 
: 3¢ 
s 5 
s 3 
; 3s 
3; 34 
; 
; 3 
3s 34 
s o 
3 34 
3; 3 
: 3 
: 3! 
3 34 
3; 34 
3 
} 
} 


FFFI 


: 3058 7 
; 3059 eas 
; 3060 8 
aR 
3 58 9 
; 5064 9 
; 3065 94 
; 3066 895 
; 3067 ao8 
; 3068 89 
: 9 898 
: 3070 899 
; 3071 900 
; ore 901 
; 307 10 
; 3074 90 
; 3075 904 
3 $07 905 
; 307 Sone 
; 3078 907 
: 3079 908 
; 3080 909 
3 ied 3910 
3 He) ag 
; 308 re 
: 3084 91 
; 3085 914 
; 3086 915 
; 3087 916 
; 3088 3917 
; 3089 3918 
; 3090 3919 
; 3091 920 
3 ad4 921 
3 308 a56 
3: 3094 92 
3 Shee 924 
3; 3096 est 
; 3097 926 
; 3098 927 
; 3099 928 
; 3100 929 
: 193 930 
; 31 ¢ 931 
; 310 836 
{3108 932 
$ 196 335 
3; 3107 .] 

; 3108 i414 
3; 3109 938 
; 3110 939 
; 3111 940 
: 116 941 
s 511 94 
3 5114 94 


PROPOPORSPOPOPORONONONOPONIPIPONONNNY 2 2 2 9 2 tt tt tt 


3 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-19 
TO ue00 EDTS$T1_RES 6-Sep 


ZSBTTL ‘EDTSSTI_LRES = restore the terminal’ 


- restore the terminal 12-8 8=138e 99:33:49 Mt 


GLOBAL ROUTINE EDTSSTI_RES ! Restore the terminal 
= 


le 


FUNCTIONAL DESCRIPTION: 


This routine restores the terminal characteristics to what ty 
were when EDT was entered. 


i FORMAL PARAMETERS: 


NONE 


i IMPLICIT INPUTS: 


T_DEVCHAR 
T“DEVCLASS 
TIDEVDEP 
TIDEVTYPE 
TIDEVWID 


i IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 


0 = unsuccessful 
1 = successful 


i SIDE EFFECTS: 


Changes the logical terminal characteristics 


BEGIN 


OCAL 
Q10_STATUS, 
EF _STATUS, 


EF, 
TT_LINFO : BLOCK (2) FIELD (SETM_FiciDS); ! Terminal characteristics 


‘e 
If SYSSINPUT is not a terminal, do nothing. 


IF (.t-devclass NEQ DC$_TERM) THEN RETURN (1); 


TT_INFO (S_CLASS] = .t_devclass; 
TT_ INFO Bite = .t devtype; 
TITINFO CS"wID) = .T_DEvwId: 
TTTINFO ES“CHAR] = .T_DEVDEP; 


Bliss-32 V4.0-7 
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eI 


3; Re 


; 3 


3 
DTSIOMOD = 1/0 for VAX/VMS 1-5 -1984 00:35:3 VA 
DISSTI_LRES = restore the terminal 12-80-1382 00:33: I 


; Get an event flag 
EF _STATUS = LIBSGET_EF (EF); 
IF ( NOT .EF_STATUS) THEN SIGNAL_STOP (.EF_STATUS); 
QIO_STATUS = $Q]0W (EFN = .EF, CHAN = .TT_CHAN, FUNC = IOS_SETMODE, P1 = TT_INFO); 


she 


32 V4.0-74 Pp 96 
ao chbt sRcS10m0D.632;1 29° (29) 


ed ed ed 


—OOONOVE WAN" OOONOu 


WANAAAAAAAAAIAAAI men 
OOODOOOOOOOON0O0O 
Wi & 
oO we 


Bee Oe Oe Oe Oe Oe Be ee Hae SH ee Sere 
2 td 4 nt 


5} ' 
26 Free up the event flag 
34 EF_STATUS = LIBSFREE_EF (EF); | 
36 IF ( NOT .EF_STATUS) THEN SIGNAL_STOP (.EF_STATUS); 
938 IF (.QIO_STATUS) THEN RETURN (1) ELSE RETURN (0); 
3 960 1 END; ' of routine EDTS$TI_RES 
003¢ 00000 .ENTRY EDTSSTI_RES, Save R2,R3,R4,R5 ; sea0| 
55 000000006 00 9€ 00002 MOVAB LIBSSTOP, R5 ; 
54 00000000' EF i 00009 MOVAB T_DEVCLASS, R4 : 
SE oc C 00019 SUBL2  # ; 
00000042 =F 64 D1 0001 CMPL  T_DEVCLASS, #66 : 3937 
5C 12 OOO1A BNEQ 38 : 
04 AE 64 90 0001C MOVB _T_DEVCLASS, TT_INFO + 3939 
0S AE 0c Aas 90 00020 MOVB IT -DEVTYPE, TT_TNFO+1 : 3940 
06 AE 10 A& BO 00025 MOVW T-DEVWID, TT_INFO+#2 : 3941 
08 AE 04 Ad DO OO02A MOVL § T-DEVDEP, TTTINFO+4 : 3942 
SE DD O002F PUSHL SP : 3946 
000000006 00 01 FB 00031 CALLS #1, LIBSGET EF : 
52 50 DO 00038 MOVL RO, EF_STATOS ; 
05 3g E8 00038 BLBS  EF_STATUS, 1$ : 3948 
52 DD 0003E PUSHL EF STAT ; 
65 01 FB 90049 CALLS #17 LIBSSTOP ; 
7E 7C 00043 1$: CLRO 20. = (§P) : 3950 
7E 7€ 00045 CLRQ  =(SP) ; 
7E D4 00047 RL -(SP) : | 
18 AE 9F 00049 PUSHAB TT_INFO : 
7E 7C 0004C LRQ 5igP) : | 
7E 23 7D O4t va #35, =(SP) ; 
F4 Aa DD 0005 PUSHL TT_¢ ; 
2C «AE DD 00054 PUSHL : 
000000006 99 € FB 00057 CALLS #12, SYS$QI10W ; 
0 D 5E OVL RO, QIO_STATUS ; 
SE DD 00061 PUSHL SP + 3954 
000000006 Q 1 FB 00063 CALLS #1, LIBSFREE_EF ; 
DO 0006A MOVL RO, EF_STATUS F | 
0 E 006 BLBS  EF_STATUS, 2$ : 3956. 
52 «(DD 90 PUSHL EF STATUS ; 
65 g FB 7 CALLS #17 LIBSSTOP ; 
04 3 €9 0007 gs: BLBC QI6_STATUS, 4$ : 3958 
0 01 bd 007 $: MOVL #1,7RO : 
4 00078 RET $ 
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; Routine Size: 127 bytes, Routine Base: _EDTSCODE + 11F7 


; 3132 


3961 1 


D 
ORES ‘restore the terminal 1eSep= 1886 BiR8iT3 —bTSebimSha eR: 
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VAX-11 B § 
DISKSVMSMASTER:CEDT.SRCJIOMOD.B32;1 


A 

I 
! Deassign the terminal channel 
! 1 iff input from trace file 


1S$e0-1966 00:35:55 


This routine deassigns the terminal channel and restores OWN storage. 
i Set either application keypad mode or numeric keypad mode depending on the user's stated 
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EDTS EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX-11 Bliss-32 V4.0-74 Page 99 
vOu2000 EDISST1 DEAS ~ deass ign the terminal 1e8eb-13be 99:33:79 BISKSUMGHASTERSEEDT SRCS10MOD.B32:1 °° (36), 
; 13) £832 preference. This only applies to VT100 and V152 terminals. 
; 138 4021 term_set = 1; 
; 3196 40 § 
: 3195 L 40 ZIF edt$$tr_act 
3 138 U $3 4 X THEN 
; 319 U 4025 
; 3198 U 40 § IF .edt$$l_tr_inflg THEN term_set = 0; 
>; 3199 U 40 
; 3200 4028 2FI 
; 3201 4029 
: 4 $3 9 IF (.t devclass NEQ DCS_TERM) THEN term_set = 0; 
3 Be 8 ¢ If ( NOT .t_devdep ([tt$v_scope]) THEN term_set = 0; 
: 3206 4034 4 IF ( NOT ( .t devextdep CTT2$V_DECCRT] OR 
; 3207 2088 4 (EB devtype EOL Drs-vise) R 
3 $08 4036 (.t_devtype EQL DT$_VT55) ) ) THEN term_set = 0; 
: 3209 4037 
; 3210 4038 IF .term_set 
3 $513 4039 
33 \¢ 4040 ZIF XDECLARED(ZQUOTE TT2$V_APP_KEYPAD) XTHEN 
; ae reed i ztdevextdep CTT2$V_APP_KEYPAD] 
3 3215 t0e§ 2 EDT$SSTI_WRSTR (UPLIT (BYTE (ASC_K_ESC, *=")), 2) 
; #51$ 4044 § LSE 
; 321 4045 ZF I 
: $518 tbe? 2 EDTSSTI_WRSTR (UPLIT (BYTE (ASC_K_ESC, '>*)), 2); 
; 1? 
: 3220 4048 3 ! Make sure all of this module's OWN storage is back to its initial state 
; 3221 4049 ! im case we get called again. 
; $555 4050 § t= 
; 322 4051 ATTRIBUTES_SET = 0; 
> 3226 405¢ 2 ATTRIBUTES_DEFAULTED = 0; 
; 3225 405 § '¢ ; : 
3 $36 ret 4 § If we are taking input from the terminal, close the terminal's channel. 
; 3256 4056 § 
3 $$? L 4057 ZIF edt$$tr_act 
: 3534 y 4089 3 hte 
; 3232 7 rts IF ( NOT .EDTSS$L_TR_INFLG) THEN STATUS = SDASSGN (CHAN = .TT_CHAN) ELSE STATUS = 1; 
3 3534 $066 ZELSE 
; 3235 406 STATUS = SDASSGN (CHAN = .TT_CHAN); 
3 $39 4064 2FI 
; 3237 4065 
; 3238 4066 TT_OPEN = 0; 
; 3239 4067 
; sey $068 IF ( NOT .STATUS) THEN SIGNAL_STOP (.STATUS); 
3; 3242 4070 1 END; ! of routine EDTSSTI_DEAS 


18 $1598 P.AAH: BYTE 3 : 
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3 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 1he5 ep-1 73 VAX-11 Bliss-32 V4.0-74 P 00 | 
TO O00 EDTS$11 DEAS = deassign the terminal 14- Hae 382 99: 33; +3 DISKSVMSMASTER:CEDT.SRCJIOMOD.B32;1 se 1g 
3D 01279 ASCII \=\ : | 
107A -BLKB 3 
1B 01207C P.AAL: <BYTE 27 : | 
3E 01270 “ASCII \>\ : | 
-EXTRN SYSSDASSGN | 
0004 000 SENTRY EDISST1 DEAS, R2 + 3964, 
gro oR ie fee Ferrey sn 
00000062 &F FB OA? «OD OC CMPL  T_BEVCLASS, #66 : 40 0 
Os Ae Boote Beet TERM. SET : 
02 FD A é EO 0018 1$: BBS a4, 7 DEVDEP+1, 2$ : sa, 
6 03 A2 05 £0 OOO1F 2s: BBS is T_DEVEXTDEP+3, 3$ ; 4034. 
00000040 _ =s BF 04 Ae ot 900 CAP. T DEVTYPE, #64 ; 4035) 
00000041 8F 06 AZ DT 0008 CMPL 1 _DEVTYPE, #65 + 6036. 
02 13 000 BEQL «6s 38 : | 
50 D4 00038 CLRL = TERM SET : 
16 50 9 0003A 3S: BLBC  ==TERM™S : 4038 
02 Ag 5 00030 TSTB yee oEntbECs2 + 4041 
07 18 00040 BGEQ is : 
02 DD 00042 PUSHL #2 + 4043 
B3 AF 9F 00044 PUSHAB P.AAH : 
05 11 00047 BRB 5$ : 
02 DD 00049 4s: PUSHL #2 + 4046 
BO AF 9F 00048 PUSHAB P.AAI ; 
0000v CF 02 FB 00046 5$: CALLS #2 EDTS$T1 WRSTR : 
FE94 §C2 7C 00053 6$: CLRQ ATTRIBUTES_SET + 4051 
EC A2 DD 00057 PUSHL TT_CHAN + 4063 
000000006 00 01 FB OO0SA CALLS #17 SYSS$DASSGN : 
FO Ae D4 00061 CLRL «TT OPEN + 4066 
09 50 £8 00064 BLBS STATUS, 7$ : 4068 
50 DD 00067 PUSHL STATUS F 
000000006 00 01 FB 00069 CALLS #1, LIBSSTOP ; 
04 00070 7$: RET : 4070 
; Routine Size: 113 bytes, Routine Base: _EDTSCODE + 127E 


: 3243 4071 1 | 
| 


H 3 | 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX-11 Bliss-32 V4.0-74 Page 101. 
04 +000 EDTSSRD_CMDLN = read a command Line 12280 8=1 3c 99:33:79 DISKSVMSMASTER: CEDT.SRCJIOMOD.832;1 ’ (31). 
45 407 ZSBTTL "EDTSSRD_CMDLN = read a command Line’ 
& 4074 GLOBAL ROUTINE EDTSSRD_CMDLN ( ! Read a command Line 
48 4075 PROMPT, ! The address of the prompt string 
49 407 PR_LEN, ! The length of the prompt string 
2 07 BUF, ! The address of the receiving buffer 
4078 LEN, ! Address of a longword to receive the length read 
5 4079 BUF _LN ! Optional length of the buffer 
5 4080 d= 
5 4081 
5 408 1+ 
33 ret } FUNCTIONAL DESCRIPTION: 
: rts $4 Read a command Line. A Line is read from the terminal. 
26 res $4 FORMAL PARAMETERS: 
26 4089 PROMPT The address of the prompt string 
$50 4090 PR_LEN The Length of the prompt string 
264 4091 BUF The address of the receiving buffer 
326 409 LEN The address of a longword to receive the length read 
326 ther BUF _LN (optional) the Length of the buffer, defaults to 255 
6 4095 IMPLICIT INPUTS: 
326 40 
? 4097 TERM_IN_RAB 


re LAA 
ee a YS 


IMPLICIT OUTPUTS: 


AAAI APP POPPI NINNURY 8 0 tt tt tt 0 


4101 TERM_IN_RAB 
410¢ 10_STS 
410 
410% i ROUTINE VALUE: 
4106 Return value is 1 if EOF, 0 otherwise. 
280 4107 
81 4108 SIDE EFFECTS: 
282 4109 
283 4110 Calls $IO_ERRMSG for 1/0 errors. 
284 4111 
285 aig - 
286 411 
87 4114 BEGIN 
88 4115 
9 4116 BUILTIN 
290 4117 ACTUALCOUNT; 
91 4118 
% 4119 ASSERT (.EDTS$6_RDAHED EQL 0); 
9 4120 10_STS = 0; 
294 4121 
95 41 é WHILE ( NOT .J0_STS) DO 
96 41 BEGIN 
97 4126 SSTRACE (EDTSSTR_KEY, EDTSSTR_SK_PROMPT, .PR_LEN, .PROMPT); | 
98 4125 TERM_IN_RAB [RABSL_PBF) = .PROMPT; 
99 4126 TERM~IN-RAB CRABS$B_PSZ) = .PR_LEN; 
00 41 TERM~IN"RAB CRABSL_UBF) = BYF: 
301 4128 TERM~IN-RAB CRABS$W"USZ) = 255; 


ww 


3 
EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS ihese -1984 00:35:3 VAX-11 Bliss-32 V4.0-74 P | 
Oooo EDTSERD CMDLN - read a command Line 1-8ep-19 4 90: 38i8 DIEKSVMGHASTERSCEOT SRCSIOMOD.B32;1 age 100 
| 
; i 41 3 TERM_IN_RAB CRABSL_ROP] = RABSM_PMT; | : ‘ 
04 411 IF (ACTUALCOUNT () EQL 5) THEN TERM_IN.RAB CRABSW_USZ) = .BUF_LN; | ; ¢ 
3 96 41 § SSTRACE (EDTSSTR_IDLE, EDTSSTR_SIDLE_KIN, 0, 0); : ; 
3 08 41 5 4 LF ( NOT SSTRACE_READ (EDTSSTR_KEY, EDTSS$TR_SK_STS, ZUPVAL, I0_STS, 0)) ; , 
19 41 $ 10_STS = SRMS_GET (RAB = TERM_IN_RAB); | : é 
; 1¢ 6139 SSTRACE (EDTSSTR_KEY, EDTSSTR_SK_STS, %UPVAL, I0_STS); 3 : 
3 14 4141 i IF ( NOT SSTRACE_READ (EDTSSTR_KEY, EDTSSTR_SK_LN, .TERM_IN_RAB CRAB$W_USZJ, .BUF, .LEN)) | ; : 
; Hf cie8 .LEN = .TERM_IN_RAB CRABSW_RSZ); | ; 3) 
; 18 4145 SSTRACE (EDTSSTR_KEY, EDTSSTR_SK_LN, ..LEN, .BUF); ; 3 
3 320 ci¢? IF (.10_STS EQL RMS$_EOF) THEN RETURN (1); | : 3 
; 324 4149 & IF ( NOT .10_STS) : 3? 
3 ; 4150 3 THEN 3 37 
: 3324 4151 & BEGIN ; 37 
; 325 413¢ 4 EDT$$G_I0_STS = .10_STS; 3 37 
: 3326 4153 4 EDT$$G_10-STV = .TERM_IN_RAB CRABSL_STV); 3 37 
: 3327 4154 4 EDTSSFAT_MSG (EDTS_ERRINPTRM); : 37 
: 3328 4155 & EDT$$10_ERRMSG (); 3 3? 
: 4 4156 ; END; 3; 37 
; 33350 4157 3 3 
; 3331 4158 END; 3 3 
; 336 4159 3; 37 
: 333 4160 RETURN (0); 3 37 
3 3334 4161 1 END; ! of routine EDTS$RD_CMDLN | : 3 
+ 37 
3; 37 
: 3 
0004 00000 ENTRY EDTSSRD_CMDLN, Save R2 : 4074 3; 37 
52 00000000' FF 9€ 00002 MOVAB 10 STS,"R : 3; 37 
000000006 060 »5 00009 TSTL  EDT$$G"RDAHED + 4119 3; 37 
07 13 0000F BEQL «=sés1$ ; : 3! 
000000006 00 00 FB 00011 CALLS #0, EDTSSINTER_ERR ; ; 37 
68 D4 0 18 1$ CLRL ©=—:*10_STS : 41 3: 37 
73 62 €E8 OOOIA 2$ BLBS 107STS, 5$ > 4122 | 3 37 
FF28 6C 04 AC g8 0 10 MOVL PROMPT, TERM_IN_RAB+48 3 41 3 3 
FF2C «OC 8 AC 9 9 MOVB PR_LEN, TERM_IN-RAB+52 > 4126 : 37 
at: ¢ C aC po 9 MOVL BUF TERM_IN7RAB+3 : 4127 : 31 
FFI ¢ FF F 8 O02F MOV7BW # 58 TERM_ IR _RAB+32 > 4128 3 37 
FEFC C2 40000000 8F p 00 5 MOVL #107874182%, TERM_IN_RAB+4 > 4109 7 3 
0 6C 91 0003e cM (AP), #5 2 41 1 : 37 
06 13 41 BNEQ 3$ ; 7 37 
FFIB C2 14 =A : 43 MOVW BUF_LN, TERM_IN_RAB+32 ; : 37 
FEF8 F 00049 3$: PUSHAB TERR IN_RAB : 4137. : 37 
000000006 09 6 FB 4D CALLS #1, SYSSGET ; : 37 
g p 34 MOVL RO, 10 STS ; | : 3 
10 BC FFIA C2 3¢ 7 MOVZWL TERM_IR_RAB+34, @LEN 3 4143 ; 3i 
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EDTS EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35: VAX-11 Bliss-32 V4.0-74 Page 104, 
104-000 EDTS$1 1 WRIN - write a Line to the terminal 12786871382 99:33:79 DISK SVMGMASTERSLEDT. SRCTIOMOD.B32:1 3) 
H 3 £193 } ZSBTTL "EDTSSTI_WRLN = write a Line to the terminal’ | 
; 9 4165 1 GLOBAL ROUTINE EDTSSTI_WRLN ( ! Write a Line to the terminal 
3 0 $198 1 BUF, ! Starting address of the Line 
; 3341 4167 1 LEN ! Length of the Line 
5 ¢ $198 1 ) : NOVALUE = | 
3 $18 1 
$ 4 4170 1 !44 
; 5 $10) ! FUNCTIONAL DESCRIPTION: 
; . } 
: 5 £198 1! This routine writes a Line to the terminal. 
: 8 4174 1! If an error is Cotected. it is considered fatal, since 
; rt aif? : we are not commnunicating with the user. 
° H | 
; 51 re 1 ! FORMAL PARAMETERS: | 
; 26 4178 1! 
; 335 4179 1! BUF the address of the buffer containing the Line. 
; $2¢ cin : : LEN the length of the Line to be written. 
; $28 1186 1 ! IMPLICIT INPUTS: 
; 335 4185 1! 
; $25 4184 1! TERM_OUT_RAB 
: 3359 4185 1! 
; 3360 4186 1 ! IMPLICIT OUTPUTS: 
: 3361 4187 1! 
: 306 4188 1! TERM_OUT_RAB 
; 336 4189 1! 10_STV, Tf there is an error 
3 3364 4190 1! 
; 3365 4191 1 ! ROUTINE VALUE: 
; 308 £106 1! 
; 336 4193 1! NONE 
; 3368 4194 1! 
: 3369 4195 1 ! SIDE EFFECTS: 
: 359 4196 1! 
; 3371 4197 1! Calls EDTSSFATAL_JOERR on an 1/0 error. 
3 3/6 4198 1! 
3; 337 4199 1 !-- 
> 3374 4200 1 
; $2 ? 4 BEGIN 
; 3377 4 08 LOCAL 
2 78 4204 STAT; 
3; 3379 4205 
: $89 & 86 TERM_OUT_RAB Rasst her} = BUF; 
$ 1 4 TERM_OUT_RAB LRABSW_RSZJ = .LEN; 
; 338 4208 SS$TRACE TEDTSSTR_SCR, EDTS$TR_SSCR_LN, .LEN, .BUF); 
: 383 4 09 SSTRACE_READING T<RETURN (0)>T; | 
; 38 2 \ IF (STAT = $RMS_PUT (RAB = TERM_OUT_RAB)) THEN RETURN; 
: 359 4 8 EDT$$G_IO_STV = .TERM_OUT_RAD CRABSL_STV); 
: 4214 EDTSSFATAC_IOERR (.STAT); ; 
3; 3389 4215 1 END; ! of routine EDTS$TI_WRLN 
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EDTSIOMOD = 1/0 for VAX/VMS 1b-se -1984 00:35: VAX-11 Bliss-32 V4.0-74 
EDTSd it URLN - write a Line to the terminal 1 =3907 1382 99:33:93 DLSKSVMGMASTERSLE DT. SRCSIOMOD.B32:1 


vb4=000 


0004 .ENTRY EDTSSTI_WRLN, Save R2 
52 00000000' EF g MOVAB TERM_OUT RABS40 R2 
6 4 AC D MOVL BUF, TERM_OUT_RAB+40 
FA OA 8 A : MOVW LEN TERM~ OUT~RAB+34 
D8 Ad OF PUSHAB ERA OUT RAB 
000000006 00 Q EB 1 CALLS #1, SYS$P 
OD E 1¢ BLBS _— STAT, 
O1AC C2 E4 A2 DO OO0O1F OVL § TERM_OUT_RAB+12, EDT$$G_1I0_STV 
50 DD 000 3 PUSHL STAT 
Ec85 =F 01 FB 000 CALLS #1, EDTSSFATAL_IOERR 
04 0002C 18: RET 


; Routine Size: 45 bytes, Routine Base: _EDTSCODE + 1382 
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ZSBTTL “EDTSSTI_GETCH = Get one character' 


) : NOVALUE = 
‘+4 


i FUNCTIONAL DESCRIPTION: 
Read a single character from the terminal. 
FORMAL PARAMETERS: 
C Where to store character read 
IMPLICIT INPUTS: 


EDT$$G_RDAHED 


i 
; 

; 

; 

; 

; 

i 

i 

i 

; 

; 

; 

i IMPLICIT OUTPUTS: 

; 

EDTS$$T_RDAHED 
ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 

: NONE 
i 


BEGIN 
LOCAL 


STS 
TMASK : VECTOR (2), 
FUNC_VAL; 


ASSERT (.EDT$$G_RDAHED EQL 0); 
If SYSSINPUT is not a terminal, just return a control 27. 


IF (.t_devclass NEQ DC$_TERM) 
THEN 


BEGIN 

-C = ASC_K_CTRL_2; 
RETURN; 

END 
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GLOBAL ROUTINE EDTSSTI_GETCH ( ! Get one character 
! Where to store character 
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BLKB 1 


O13AF ‘ 
FFFFFFFR FFFFRFFFR 6OFPFRRFRRRR OGOFFRRRRFR OUFFRRRRRF OUOFRPRRPERFE 01350 P.AAJ: LONG <-1, -1, 1, =1, -1, -1. =1, =1 
FFFFFFFR FFFFFFFF O15C 


3 09 0 6 a. Me ROvAS cies F R2,R3,R4,R5,R6,R7,R8B,RO 
eR me ie ay 

. $s 3 A isi FD eptssc -RDAHED 

69 FB 3 CALLS #0, EDTSSINTER_ERR 


DTSIOMOD - Af? for VAX/VMS Sep-1984 00:35:3 VAX-11 Bliss-32 V4.0-7 e 107. 
atta -GETCH = Get one character 1e- se0- 1944 9923337 3 DISKSVMSMASTER: tbo i’sre 10M0D .832;1 shin (3 | 
Me i. Make sure we have the event flags to drive the terminal. 

7 

7 IF ( NOT .HAVE_EFNS) THEN EDTSSTI_ENTERCHM (); 

8 bag & FO} 5 

Bt s bet 

1 SSTRACE (EDT STR. IDLE’ eptssth SIOLE. ‘ene ‘0, ‘ey? 

HY ASSERT (.HAVE_EFRS); 

Se Fos NOT SSTRACE_READ (EDTSSTR_KEY, EDTS$TR_SK_CH_NE, K_RDAHED_LEN, EDTSS$T_RDAHED, EDT$$G_RDAHED)) ! 

Be 

87 dO 

88 BEGIN 

89 FUNC_VAL = IO$_READVBLK + IOSM_NOECHO + IOSM_NOFILTR + IO$M_TRMNOECHO; 

4 IF (€ NOT edt$$tr_act) AND (.EDTSST_PMT_KPD CO] EQL 0)) THEN FUNC_VAL = .FUNC_VAL + IOSM_ESCAPE; 
38 STS = Big « (EFN = .INPUT_EFN, CHAN = .TT_CHAN, P1 = EDTSS$T_RDAHED, P2 = K_RDAHED_LEN, ! 
$3e ; = TMASK, 10SB = I0SB, FUNC = -FUNCIV VAL): 

38 IF ( NOT .STS) THEN SIGNAL_STOP (EDTS$_ERRINPTRM, 0, .STS); 

38 EDT$$G_RDAHED = .10SB (1) + .10SB (3); 

00 i ‘ew doing the Q10 until we oes something. We can get nothing if we were interrupted by a control Y 

$05 ; _and then continued by a CONTINUE command. 

398 END 
oe 2 UNTIL (.EDTS$G_RDAHED GTR 0); 
306 SeTAAcE cepTssTR KEY poreert SK_CH_NE, .EDT$$G_RDAHED, EDTS$$T_RDAHED); 

307 CHSRCHAR (EDTS$T_R 

308 ébTss6" RDAHED = EDTSSG PRDARED - 1; 

$19 § IF (.EDTSS$G_RDAHED GTR 0) THEN CHSMOVE (.EDTS$G_RDAHED, CHSPLUS (EDTSST_RDAHED, 1), EDTSS$T_RDAHED); 

32 1 END; ! of EDTS$TI_GETCH 
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EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 16-5e -1984 :3 VAX=11 Bliss-32 V4.0-74 Pa | 
04~000 EDTSSTI_GETCH = Get one character 73007138 99: 33 +3 DISKSVMSMASTER:CEDT.SRCJIOMOD.B32;1 oe 499 
00000062 «BF EG ag : 1$: CHPL J ,DEVCLASS, #66 4266 | 
04 BC iA p MOVL #26, ac : 4 69. 
4 RET : 4 68 
05 E8 00037 2S: BLBS §_- HAVE_EFNS + 4277 
0000v CF FB 0 A CALLS #9 ebrSstr. ENTERCHM : 
6E : F 3$: MOVL é + 4279 
06 A 98 OA ; 0040 MOVAB esky. MO RASK +s + 4280 
0 66 € 4 BLBS hav E_EFNS, 4$ + 4282 
69 0 FB 000A CALLS #0, EDTSSINTER ERR : 
2 1271 F 3C 0004D 4$: MOVZWL AC : 4289 
000000006 Q 9 0098 TSTB #atai _PMT “RPD + 4291 
12 00 BNEQ : 
52 4000 C2 GE O005A MOVAB  16384(R2), FUNC_VAL : 
—E 7C 0005F S$: CLRQ =(SP) + 4294 
08 ar 9F 00061 PUSHAB TMASK ; 
7E 7D 00064 Ova #32, =(SP) : 
7 bp 00067 PUSHL 7 : 
E 7£ 00069 LRQ. = (SP) : 
DO «6—A6 «OF 00068 PUSHAB 10SB : 
52 DD 0006 PUSHL FUNC_VAL 3 
D8 Ab DD 0007 PUSHL TT CRAN : 
F8 Ab DD 0007 PUSHL INPUT _EFN ; 
000000006 99 OC FB 00076 CALLS #12, SYS$Q10W : | 
5 D0 0007D MOVL RO, STS : | 
11 53 £8 00080 BLBS STS, 6$ : 4296 | 
53 DD 00083 PUSHL STS F 
7E D4 00085 CLRL.  =(SP) F 
000000006 8F DD 00087 PUSHL #EDTS. ER ERRINPTRM : 
000000006 00 03 FB 0008D CALLS BSsI top : 
50 D2 Ab 3¢ 00094 6$: MOVZWL ratatse + 4298 
51 D6 «AG 3 00098 MOVZWL eps re ; 
68 50 51 C1 0009C ADDL3. R1, RO. EDTSSG _RDAHED ; 
AB 15 OOOAO BLEQ 4$° : 
04 BC 67 9A OO0A2 MOVZBL EDTS$$T_RDAHED, ac : 4307 
68 07 OOOA6 DECL  EDTS$G"RDAHED : 4308 
50 68 DO 000A8 MOVL § EDT$SG"RDAHED, RO : 4310 
05 15 OOOAB LEQ «Ss 7$ : 
67 01 «A? 50 28 O00AD MOVC3 RO, EDTS$T_RDAHED+1, EDTS$$T_RDAHED : 
04 00082 7$: RET : 4312 


; Routine Size: 179 bytes, Routine Base: _EDTSCODE + 1300 


; 3488 4313 1 


<m 


W.AI.AIANA AANA AAANWAN NIAAA AAA Rg 


io 
= 
ie 


WWAUWA 


2 Od Cd Od GD Od OD OD OD OD Gd OD 09 CD OD CD OD OD Od OD OD OD OD OD CD OD OD OD OD 0D CD G0 G9. 00 CO 


WA AWN 


OO 0 O09 Op 000 00 09 09 09 00 0 09 09 C9 00 CD CD CD 


2 


: 


4 | 
D = 1/0 for VAX/VMS 1h-sep-19 4 90:33:73 VAX-11 Bliss-32_ V4.0-74 Page 109. 
WRSTR = write to terminal without carr 14-Sep-1984 12:23:1 DISKSVMSMASTER: CEDT.SRCJIOMOD.832;1 (34) 


ZSBTTL ‘EDTSSTI_WRSTR = write to terminal without carriage control’ 


ok 


; 39 


EDTS 

EDTS$TI 
; 4314 1 
: 3491 4315 1 
; 349 4 1 1 GLOBAL ROUTINE EDTSSTI_WRSTR ( ! Write to the terminal without implied carriage control 
; 349 4317 1 BUF, ' Address of the buffer to write 
: 3494 4 Hs 1 LEN ' Length of that buffer 
; 3495 4319 1 ) : NOVALUE = 
: 3496 4320 1 
3; 3497 4321 1 !4¢ 
5 138 ? ¢ ! FUNCTIONAL DESCRIPTION: 
3 200 : ¢ } Write a buffer on the terminal without implied carraige control. 
: 50¢ 4 § 1 ! FORMAL PARAMETERS: 
3 350 4 1! 
: 3504 4328 1! BUF Address of the buffer to write 
; 3505 4329 1! 
; 3506 4330 1! LEN Length of that buffer 
; 3507 4331 1! 
; 3508 4 § 1 ! IMPLICIT INPUTS: 
; 3509 $3 1! 
; 3510 4334 1! TT_CHAN 
; 3511 4335 1! OUTPUT _EFN 
3 218 4336 1! HAVE _EFNS 
3 3) ret H4 1! T_DEVCLASS 
: 3514 4338 1! 
; 3515 4339 1 ! IMPLICIT OUTPUTS: 
; 3516 4340 1! 
3 seif 4341 1! NONE 
; 3518 ree | 1! 
3 ah 4345 1 ! ROUTINE VALUE: 
: 3520 4344 1! 
3 $25; 4345 1! NONE | ; Ro 
3 => ; 4346 1! 
: 352 4347 1 ! SIDE EFFECTS: 
3 $250 4348 1! 3 39 
3 Soeo 4349 1! NONE ee 
; 3526 4350 1! 
; 2sf 4351 1 !-- 
; 3528 $326 1 
; 269 435 BEGIN 
; 35350 4354 : 
3; 3531 4355 ! Do nothing if the Length is zero or SYSSINPUT is not a terminal. 
: 3336 i389 § | 
3 3 4358 IF ((.LEN GTR 0) AND (.t_devclass EQL DC$_TERM)) 
3; 3535 4359 THEN 
3 33 4360 BEGIN 
3; 3537 4361 ! 
3; 2 $386 ! Make sure the event flags are allocated. 
:; 3539 436 != 
; 3540 4364 
: rt ore? IF ( NOT .HAVE_EFNS) THEN EDTSSTI_ENTERCHM (); 
3 28 4 ASSERT (.HAVE_EFNS); 
3 3544 4368 S$TRACE (EDTSSTR_SCR, EDTSSTR SSCR_CH, .LEN, .BUF); 
3 3545 4369 $STRACE_READING T<RETURN (0)>3; 
3; 3546 4370 ASSERT TSWAITFR (EFN = .OUTPUT_EFN)); 


dD 4 


EDTS EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX-11 Bliss-32 v4 
Y0u2000 EDTSST1 URSTR - write to terminal without carr 122888718 4 99:33:79 
: 3547 P 4371 ASSERT ($Q10W (EFN = .OUTPUT_EFN, CHAN = .TT_CHAN, P1 = .BUF, P2 = .LEN, 
: 354 4 fe FUNC = JOS_WRITEVBLK~+ IO$M_NOFORMATS); 
; r?4 ? a END; 
; 3551 4275 END; ! of routine EDTSSTI_WRSTR 
000c¢ 00000 .ENTRY EDTSSTI_WRSTR, Save R2,R3 
53 900000006 00 9E 99008 MOVAB EDTSSINTER_ERR, R 
0000000" EF 4 MOVAB HAVE_EFNS,~R2 
08 AC D 9001 TSTL 
4C 15 0001 BLE § 
00000042 = BF E46 Ad D1 9901 CMPL T_DEVCLASS, #66 
4 iF 0010 BNEQ 
0B 62 £8 OO0OTF BLBS §_ HAVE_EFNS, 1$ 
0000v CF 00 FB 000 : CALLS #0, EDT$$TI_ENTERCHM 
03 62 £8 000 BLBS §_- HAVE_EFNS 
63 00 FB OO02A CALLS #0, EDTSSINTER_ERR 
FC A2 DD 0002D 18: PUSHL OUTPUT_EFN 
000000006 00 01 FB 00030 CALLS #1, SYSSWAITFR 
03 50 £8 00037 BLBS_ _——RO, 
63 00 FB OO03A CALLS #0, EDTSS$INTER_ERR 
7E 7C 0003D 28: CLROQ = = (§P) 
7E 7C 9003F CLRQ Os =(S 
7E 04 AC 7D 00041 MOVQ BUF, -(SP) 
7E 7C 00045 CLRQ Os =(S 
7E D4 00047 LRL = 
7E 0130 8F 3C 00049 MOVZWL #304, -(SP) 
D8 A2 DD 0004E PUSHL TT 
FC A2 DD 00051 PUSHL OUTPUT _EFN 
000000006 00 OC FB 00054 CALLS #12. SY¥S$Q10W 
03 50 €8 00058 BLBS _——RO, 
63 00 FB 0005E CALLS #0, EDTSSINTER_ERR 
04 00061 3$: RET 


; Routine Size: 98 bytes, Routine Base: _EDTSCODE + 1483 


; 3552 4376 1 
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EDTSIOMOD = 1/0 for VAX/VMS 1-sep -1984 : 33: 33 VAX-11 Bliss-32 V res Page {it 
EDTSSTI_RDTYAHED = read a character from typea 12780-138e DISKSVMSMASTER: tt OsRe I10M0D.832;1 (35 

; : a } ZSBITL "EDTSSTI_RDTYAHED = read a character from typeahead' 

3 4 § 1 GLOBAL ROUTINE EDTSSTI_RDTYAHED ( ! Read a character from typeahead 

; 4 9 1 TEXT ! Address of the string read 

s 4381 1 d= 

; 4 58 1 

: 4 1 lee 

5 ? Se : ; FUNCTIONAL DESCRIPTION: 

; 4386 1 | This routine reads the type-ahead buffer. It returns the string in 

; 35 : rH : TEXT, the number of characters read as its value. 

; es 4389 1 | FORMAL PARAMETERS: 

; 3567 4390 1 

; 3568 4391 1! TEXT Address of the string read 

; 3569 4 3 1! 

; 3570 4393 1! IMPLICIT INPUTS: 

; 3571 4394 1} 

: 276 4395 1! 

; 357 4396 1 / guTPUT. ERN 

: 3574 4397 1 | HAVE _EFNS 

; 3575 4398 1 T_DEVCLASS 

; 3576 4399 1 

3; 3577 4400 1 ' IMPLICIT OUTPUTS: 

; 3578 4401 1! 

; 3579 4402 1 10S8 

; 3580 4403 1! 

; 3581 4404 1 | ROUTINE VALUE: 

: S266 4405 1! 

; 3583 4406 1! The number of characters read 

3; 3584 4407 1! 

; 3585 4408 1 | SIDE EFFECTS 

: 3586 4409 1! 

; 3587 4410 1 NONE 

3 Seas 4411 1! 

3; 3589 4412 1 i- 

; 3590 4413 1 

: 3591 4414 , BEGIN 

3 236 4415 

3; 359 re} § CAL 

3; 3594 441 RETURN =VALUE. 

; 3595 4418 TMASK : VECTOR (2); 

; 3596 4419 

3; 3597 4420 '¢ 

; 3598 4421 ! If SYSSINPUT is not a terminal there can be no typeahead. 

. ree 

; 1 rr 3 IF ‘.t.devclass NEQ DC$_TERM) THEN RETURN (0); 

$ : rt) $ !¢ 

3 rr : Make sure the event flag numbers are allocated. 

: 4429 

; rr) ? IF ( NOT .HAVE_EFNS) THEN EDTSSTI_ENTERCHM (); 

: 44 ; essent ( HAV "rieade 

3 44 (0) = 


F 4 
EDTS EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX-11 Bliss-32 V4.0-74 P 12) 
tee she EDTS$11 ROT YAMED - read a character from typea 1a-8ep-19 4 90:33:48 DLAKSVMGRASTERSCEDT SRC9IOMOD.B32;1 age hig 
; i 44 4 TMASK (1) = UPLIT (=1, 0, 0, %x'80000000', -1, 0, 0, 0); : 
: 361 44 i Im trace mode we cannot process typeahead. | : 
: 3614 tc39 ie " : 
: 3615 44 : | : 
H ol8 L 44 ZIF_ ( NOT edt$$tr_act) ; 
: 361 4440 2 XTHEN : 
: 3618 4441 ASSERT (SWAITFR (EFN = .OUTPUT_EFN)); : 
; 3619 P 444 ASSERT ($Q]0W (EFN = .INPUT_EFN, CHAN = .TT_CHAN, P1 = .TEXT, P2 = K_RDAHED_LEN, P3 = 0, P4 = TMASK, | ; 
> 3620 444 10SB = IO0SB, FUNC ="I10$ READVBLK + TOSM_NOECHO + IOSM_NOFILTR + IOSM_TIMED)); | ; 
: 3621 4444 RETURN_VALUE = .10S6 [1] + .10S6 (3); : 
; : U 4445 2 XELSE ; 
; U 444 RETURN_VALUE = 0; ; 
: 3624 444 I | ; 
: 3625 4448 | ; 
: 3626 4449 RETURN (.RETURN_VALUE); ; 
; ? 4450 1 END; ! of routine EDT$$TI_RDTYAHED | ‘ 
| . 
| : 
014E5 .BLKB 3 ; 
OOO000CO ~FFFFFFFF 80000000 00000000 00000000 FFFFFFFF 01468 P.AAK: LONG 1, 0, 0, -2147483648, -1, 0, 0, 0 : : 
00000000 90000000 01500 ; | : 
000c 00000 .ENTRY EDTSS$TI_RDTYAHED, Save R2,R3 : 4379 | ; 
53 000000006 00 9 00002 MOVAB EDTSSINTER_ERR, R3 : ; 
52 00000000" EF 3 00009 MOVAB HAVE_EFNS, ~R2 : ; 
5E 08 C2 00010 SUBL2 #8, SP ; : 
00000042 8F E4 A2 D1 00013 CMPL T_DEVCLASS, #66 t 4426 : 
5A 12 0001B BNE : ; 
08 62 €8 0001D BLBS §_~ HAVE_EFNS, 1$ : 4430 ; 
0000v CF 00 FB 99020 CALLS #0, EDT$$T1_ENTERCHM ; ; 
03 62 £8 00025 BLBS § HAVE _EFN + 4432 ; 
é 00 FB 00028 CALLS #0, EDTSSINTER_ERR : ; 
6E 20 DO 00028 18: MOVL #32, TMAS : 4433 | ; 
04 AE AF AF 9E 9006 MOVAB P.AAK, TMASK+4 + 4434 : 
FC A2 DD 000 PUSHL OUTPUT_EFN : wat : 
000000006 09 01 FB 00036 CALLS #1, SYSSWAITFR 3 3 
0 50 £8 00030 LBS , 2s ; ; 
63 00 FB 0004 CALLS #0, EDTSSINTER_ERR : : 
7E 7C 00043 2$: LRQ = (§P) 3 4443 | : 
08 A i 0004 PUSHAB TMAS : | 3 
7E 20 7D 0004 Ova #32, -(SP) : : 
04 AC bp 90048 PUSHL TEXT : F 
7E 7C 0004 LRQ. =(SP) : ; 
pO OA i 005 PUSHAB 1088 ; : 
7E O2F1 8F 3¢ 0005 MOVZWL #753, -(SP) : : 
D8 A2 0D 09 USHL TT_CH : | ; 
F8 Ad DD 28 PUSHL INPUT EFN ; : 
000000006 0 of FB 0 CALLS #12, SYS$Q10W : | ; 
0 EB 0006 BLBS RO, 3 : | : 
$ 00 FB 9 CALLS #0, EDTSSINTER_ERR : ; 
0 bD2 OA 3 6B 3$: MOV2WL 10SB+2, RETURN” VALUE 7 4444 | : 
51 D6 Ad 3¢ OO6F MOVZWL 10SB+ : | ; 
50 51 CO 00073 ADDL2 1, RETURN_VALUE : : 


iret he ED 13497 OROT YAN 2 Food @ character from se 18-Sep-1984 99:33:93 Dhak $y VMSHAS ERSCEDT SRC410MOD .B32 1 Page 113. vo4e 
$0 be < $0078 4s: CER RO 1286 


; Routine Size: 122 bytes, Routine Base: _EDTSCODE + 1508 


: 3628 4451 1 


7 
H 4 | 
EDTSJOMOD EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:33  VAX-11_Bliss-32 V4.0-74 Page 114 | EDTS 
bu 2000 EDTSS11 ROSTR - read characters until control 12-808718 4 90: 38t8 DLEKSVMGMASTERSCEDT SRCTIOMOD.B32;1 . deo v04- 
| . 
3 : re § } ZSBTTL “EDTSSTI_RDSTR = read characters until control or DEL" ° 
3 § 4454 1 GLOBAL ROUTINE EDTSSTI_RDSTR ( ! Read characters until control or DEL ‘ 
; 36 4455 1 BUF, 1 Address of the buffer to read into ‘ 
3 4a $ 1 LEN, ! Length of that buffer ° 
3 5 44 1 LEN_READ ! Store here the number of characters read ° 
: 4458] ) :"NOVALUE = | : 
3 4460 1 !++ : 
; 073 Pree: ! FUNCTIONAL DESCRIPTION: ‘ 
; 3641 4465 1! This routine reads characters with echo on until any control character or : 
; § 4464 1! a DEL character are seen. ‘ 
; 364 4465 1! ‘ 
; one rr : : FORMAL PARAMETERS: : 
; $ rrr | : : BUF Address of the buffer to read into. : 
; : eth : : LEN Length of the buffer. : 
; 29 rei! : LEN_READ Address of a longword to receive the number of characters read. : 
; 626 4474 1 ! IMPLICIT INPUTS: ; 
3 365 4475 1! : 
; 3654 4476 1! TT_CHAN : 
; 3655 4477 1! OUTPUT_EFN ; 
; 3656 4478 1! | 3 
; 3657 4479 1! EDTSST_FMT_BUF oe 
; 3698 4480 1! EDTS$SA_FMT—CUR a4 
; 3659 4481 1! g 4 
: 3660 4482 1! HAVE _EFNS a: 
; 1 4483 1! T_DEVCLASS a 
3 o6e 4484 1! 7 
: 366 4485 1 ! IMPLICIT OUTPUTS: 4 
3 4486 1! > 3 
; 366 4487 1! 10SB ; 1 
; 4488 1! EDTSSA_FMT_CUR 
; 4489 1! EDTS$$T_RDARED 
3 4490 1! EDT$$G_RDAHED 
; 4491 1! 
; 4492 1 ! ROUTINE VALUE: 
; 44935 1! 
$ 4494 1! NONE 
; 4495 1! 
3 4496 1 ! SIDE EFFECTS: 
: 4497 1! 
; 4498 1! NONE 
: 4499 1! 
; 45 1 fee 
; 4501 1 
; 45 § BEGIN 
: $287 
; 45 LOCAL 
: 4505 TMASK : VECTOR (2), . f \ 
; 45 TERM : VECTOR CK_RDAHED_LEN, BYTE), ! The string that terminated the Line, if any 
3 rts 14 LEN_TERM; ! number of characters in the terminator 


3 


; 


D - 1/0 for VAX/VMS 1b-se -1984 VAX-11 Bliss-32 V4.0-7 15 

-RDSTR = read characters until control 730071382 93: 33 13 DISKSVMSMASTER: ceo 7 °sRe IOMOD.B32;1 Page 33 

14 
If SYSSINPUT is not a terminal just return control Z. 


IF (.t.devclass NEQ DC$_TERM) 
THEN 


"= ASC. K_CTRL_2; 


Ve 
a Make sure the event flags are allocated. 


IF ( NOT .HAVE_EFNS) THEN EDTSSTI_ENTERCHM (); 


ASSERT (.EDTS$$G ~ Typed EQL 0); 
ASSERT (.HAVE_EFNS) 


Set up the terminator mask. 


THASK 0) = 
K E13 bint Ox" 80000000" , 

SSTRACE teprssta ey, “episs TR_SK_PROMPT, “EDTESA Fat tuk - EDTSS$T_FMT_BUF, EDTS$$T_FMT_BUF); 

SSTRACE (EDTSSTRIIDLE, EDTSsiR: STDLE_KIN, 0, 0); 
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704 
706 
7 
10 
+} 
3718 
15 
18 ; Ferrans pare (EDTSSTR_KEY, EDTSSTR_SK_CH, MIN (.LEN, 72), .BUF, .LEN_READ) 
; i 2 BEGIN 
; $3 ri Since we got the record from the trace file, get the terminator from the trace file. 
22 4 
153 4 LOCA EAD. STATUS; 
725 4 
7s6 4 TERM (0) = 0; 
72 4 READ STATUS = SSTRACE_READ (EDTSSTR_KEY, EDTSSTR_SK_TERM_NE, K_RDAHED_LEN, TERM, LEN_TERM); 
y : 3 ASSERT ¢ -READ_STATUS); 
| 
730 5 ELSE 
731 5 
: § 3 BEGIN 
7 5 '¢ | 
4 5 i Make sure output is complete. 
7 5 3. | 
? 6 | 
6 FUNC_VAL, 
? Q10_STATUS; 
6 ASSERT (SWAITFR (EFN = .OUTPUT_EFN)); 
6 FUNC_VAL = IOS_READPROMPT + IOSM_TRMNOECHO + JOSM_NOFILTR; 


mm 
J 
— 
ef 


< 
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EDTS EDTSIOMOD = 1/0 for VAX/VMS 1b-se -1984 00:35:33 VAX-11 Bliss-32 V4.0-74 Page 116) 
tied EDTSST1 RDSTR = read characters until control 1 ~8ep-19 4 99:3 :19 DE KSVMGMASTERSLEDT  SRCTIOMOD.B32;1 ° des 
: 3744 4 3 
3 045 i IF (( NOT edt$Str_act) AND (.EDTSST_PMT_KPD [0] EQL 0)) THEN FUNC_VAL = .FUNC_VAL + womiptiosh,, : i 
: 374 P 4 e3 QIO_STATUS = $Q10W (EFN = .INPUT_EFN, CHAN = ,TT_CHAN, P1 = .BUF, P2 = MIN (.LEN, 72), : ] 
; 374 P 4570 P4 = TMASK, P5 = EDTSS$T_FMT_BUF, P6 = .EDTSSA_FMT_CUR - EDTS$T_FMT_BUF, 10SB = 10$B, | ee 
: 3769 $27] FUNC = .FUNC_VAL); . 4 
3 H 4378 IF ( NOT .QIO_STATUS) THEN SIGNAL_STOP (.QI0_STATUS); | : : 
; 37 g 13h8 «LEN READ = .10SB gl): 1 Number of bytes read 2] 
> 3754 4976 LEN TERM = .10SB (3); ' Number of bytes in the terminator string 7 
3 03 40? &: CHSMOVE (.LEN_TERM, CHSPLUS (.BUF, ..LEN_READ), TERM); = 
: 3757 4579 3 | Keep doing the Q10 until we get something. We can get nothing if a control Y interrupts us ; 1 
; 3758 4580 ! and we are later continued. | $7 
: 3759 4581 3 i- : 1 
: 3760 45 g END $ 7 
; 761 4583 UNTIL ((.10SB [1] + .10SB C33) GTR 0); | : : 
; 763 4385 EDTSSA_FMT_CUR = EDTSST_FMT_BUF; : 
3 765 4987 i Make sure the Line read and its terminator are recorded in the trace file. a7 
: 3767 4589 2 $S$TRACE (EDTSSTR_KEY, EDTSSTR_SK_CH, ..LEN_READ, .BUF); eu 
; 768 4990 , SSTRACE (EDTSSTRIKEY, EDTS$TR-SK-TERM_NE, -LEN_TERM, TERM); : ! 
3 ry £236 If we had a terminator return it by placing it in the type-ahead buffer. : : 
: 377 4594 2 : 1 
: 377 4595 IF (.LEN_TERM GTR 0) 3 7 
> 3774 4596 THEN . 7 
; 3775 4597 BEGIN 4 
: 3776 4598 CHSMOVE (.LEN_TERM, TERM, EDT$$T_RDAHED); : 2 
: 3777 4599 EDTS$G_RDAHED-= .LEN_TERM; 2 
; 3778 4600 : END; ; é 
: 3779 4601 : 
; 3780 4602 1 END; ! of EDTSS$TI_RDSTR : ¢ 
¢ § 
Pais 
01582 -BLKB 2 | 3 ¢ 
00000000 FFFFFFFF 80000000 00000000 00000000 FFFFFFFF 01584 P.AAL: LONG <1, 0, 0, -2147483648, -1, 0. 0. 0 ; : 
00000000 00000000 0159¢ : : 
| F 
OFFC 00000 -ENTRY EDTSSTIARDSTR, Save R2.R3,R4,R5.RO.R7.RE,~ 4454 | 
58 0 000 G 90 9E 00002 MOVAB EDT$$T’FMT_BUF, R11 : | ; 
A 0 G6 00 9 000 MOVAB EDTSSIRTER“ERR, R10 ; | : 
9 990 6 00 9 9010 MOVAB EDT$$G_RDARED, ; | : 
8 00000000' i 9—€ 0001 MOV HAVE _EFNS, RB : | ; 
E 8 C 1 SUBL2 #40, ~SP ; ; 
00000042 8F E4 AB DY 00081 CPL T DEVCLASS, #66 : 4513 | ; 
OC BC D4 8 CLRL = @LEN_READ > 4516 ; 
000000006 00 1A D0 E MOVL #26, ~EDT$S$T_RDAHED ; ; 


EDTSIOMOD EDTSIOMOD = 1/0 for VAX/VMS 
vO4=000 EDISS 


69 
05 
0000v CF 
6A 
03 
6A 
30 AE 
4 AE 88 
56 08 
00000048 = &F 
an. 
000000006 69 
0 
6A 
51 1237 
000000006 
3} 4000 
7E 000000006 00 
28 
04 
dO 
F 
000000006 00 
09 
00000000G 00 
oc «BC D2 
57 D6 
50 04 AC 0c 
6E 60 
29 D2 
1 D6 
50 
00000000G 00 
000000006 00 oF 
6 
; Routine Size: 248 bytes, Routine Base: 


TILRDSTR = read characters until control 


01 


DOD $19 MOO BLAM N"OOWOOWOO®W 


PF POWYS HViy NPM NMA OOOWDOWM10 F OWOW'S PWOCOCOCOe 
—Omoomm 


Go OOM Wo— 00 


pe fhe nm Bt "OO-990 090 MMO" 


4 
§ 88 
6 0 
i 
A 00064 
D 3 68 
bau 
B 0007 
C 89 78 
5 00 43 
2 8 8 
E 00085 
4 QO08A 
00080 
D 00095 
00097 
D4 QOO9A 
DD 0009C 
DD QO09E 
7C OOOAI 
9F QOOAS 
DD O00A6 
DD O00A8 
DD OOOAB 
FB QOOA 
E8 0008 
DD 00088 
FB QOOBA 
HS 000C1 
C bance 
1 QOOCA 
8 00000 
C 8 D4 
C 08 
3 OODC 
15 QOODF 
9E OO0E1 
D5 OO0ES 
1 EA 
2 EC 
b? OOF4 
4 000F7 


EDTSCODE + 15A4 


5$: 


oa 
oe 


~ 
wn 


#1, EDTS$G_RDAHED 
HAVE_EFNS, 2$ 

#0 EDTSS$11 ENTERCHM 
Df$$G_RDAHED 

#0, EDTSSINTER_ERR 
H N 

#9 EDTSSINTER_ERR 
#32, TMASK 

P.AAL, TMASK+4 
LEN, Rs 

RS. ae 


#72, R6 

OUTPUT EF 

#1, SYSSWAITFR 

#0. EDTSSINTER ERR 
#4663, FUNC_VA 
DTS$$T_PMT_RPD 
16384 (R1) « FUNC_VAL 


EDTS$T_FMT_BUF,-R 
RO, EDTSSA“FMT.CUR, -(SP) 


TE 
RM, EDT$$G_RDAHED 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER:CEDT.SRCJIOMOD.B32;1 


FMT_BUF, EDTSSA_FMT_CUR 


RM eprrer RDAHED 


Page 17) 


Pee Se Se Se Se Se Se See Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Ge Se Se Se Fe Se Fe Se Fe Fe Ge Be Se Fe Ge Se Be Se Se Be Fe Se Se Fe Be Be Be Se Be 


4518 | 


Re Se Se Be Se Se Se Be Be Se Se Ss Se Be Se Se ee Se Se Se Fe Se Se Se Fe Se Fe Se oe Se Se ae Se Se Se Fe Se Se Se Se Se Se Se Se Se Seas SH Se Se Se Se ee Fe Se seas 


st 


POPSPOPIPOPOPOPIPIPOPINIPININININININNINNINNINNNNNNNNINNINNY 


4 
GRIEG ——«EBTELONOR 1470 for YAKS oon sncit contrat HECEESCISRE QB:SEERE  YYEcITMBbLSREREc#S4°S@48;onop.o52,> P88" HJ 
; 3781 4603 1 | 


WA. AAA AAI AAA NAIA AAAI AI 
000000009 Co 0D 0D o 
WN —OOONOUEWN “OC OOnNOuUfSwnr— 


WII POPony 


Be Se Be Se Se Be Oe Se Se Se Se Be Be Ge Be Se Se Ge Se Se Ge Fe Se Ge Ge Se Ge Ge Ge Ge Se Se Se Ge Ge Se Ge Se Se Ge Se Se Se Ge Se Se Se Se Se Se Se Se Sees te ee ee 


AAA A AAA AAA 


SSLEAE 


IF ((.HAVE_EFNS) OR (.t_devclass NEQ DC$_TERM)) THEN RETURN; 


"allocate event flags for input and output. 
INPUT_EF STATUS = LIBSGET_EF (INPUT_EFN); 
IF ( NOT .INPUT_EF_STATUS) THEN SIGNAL_STOP (.INPUT_EF STATUS); 
OUTPUT_EF_STATUS = LIBSGET_EF (OUTPUT_EFN); 
IF ( NOT .OUTPUT_EF_STATUS) THEN SIGNAL_STOP (.OUTPUT_EF_STATUS); 


mM 4 
EDTSIOMOD = 1/0 for VAX/VMS 16-Sep-1984 00:35:3 VAX=11 Bliss-32_ V4.0-74 Page 119 EDTS 
EDTSE11 ENTERCHM - enter change mode 12286-1382 90:33:49 DL EKSVMGMASTERSLEDT. SRCTIOMOD.B32:1 ’ ah V04~ 
| 
7886 ! AZSBTTL ‘EDTSSTI_LENTERCHM = enter change mode’ | : 
46 $ 1 GLOBAL ROUTINE EDTSS$TI_ENTERCHM ! Enter change mode | : 
4607 1 : NOVALUE = ; 
46 3 1 : 
4609 1 !+4+ ; 
4610 | FUNCTIONAL DESCRIPTION: | ; 
re Ot : Enter change mode. Allocate event flags. : 
4614 1 | FORMAL PARAMETERS: ; 
4615 1: ; 
re 1! NONE | 3 
4617 1! 3 
4618 1 ! IMPLICIT INPUTS: 3 
4619 1! 3 
4620 1! HAVE _EFNS : 
4621 1! T_DEVCLASS ; 
46 § 1! $ 
46 1 ! IMPLICIT OUTPUTS: ; 
4624 1} | ; 
4625 1! INPUT_EFN FH 
4626 1! OUTPUT _EFN ° 
4627 1 | HAVE _EFNS ; 
4628 1! : 
4629 1 ! ROUTINE VALUE: 3 
4630 1! 3 
4631 1! NONE ; 
$656 1! 3 
4633 1 | SIDE EFFECTS: : 
ace2 { Allocates two event flags for full-duplex terminal 1/0, if necessary. : 
4637 1 i-- ; 
4638 1 : 
4639 BEGIN ; 
4640 : 
4641 OCAL | : 
464 INPUT_EF_STATUS . 
464 OUTPUT_EF_STATUS; : 
teas. 3 F 
'¢ 3 
1888 If the event flags are already allocated, or if SYSSINPUT is not a terminal, do nothing. | : 
; 
3 
| ° 


PAAAAA IMI & & 
SOWONOUSWN—O”O 


EDTS 0 for VAX/VMS sep :3 X=11 Bliss-32 Vv 4 «08 Page 120 EDTS 
V04= EDTSSTI_ HM = enter change mode Sep 138 99: 33: +3 bs SKSVNEH ASTER: ceo SRCSIOMOD. 832;1 . 338 VO4= 
H 0 4661 
: 3841 1006 SSETEF (EFN = .OUTPUT_EFN); 
; § 466 HAVE _EFNS = 1; 
; 384 4664 ASSERT (.HAVE_EFNS); 
3 3844 4665 ND; ! of routine EDTS$TI_ENTERCHM 


-EXTRN SYSSSETEF 


001¢ 00000 .ENTRY EDTSSTI a Save R2,R3,R4 + 4606 
54 900000006 00 9E 99008 MOVAB Ul ; 
3 000000006 9E 0000 MOVAB LIBSGET EF, : 
32 00000000° EF 3 90010 MOVAB HAV VE -EFRS. a ; 
D 62 €8 0001 BLBS -HAVE-E 3$ + 4649 
00000042 FF E4 A2 01 OOO1A CMPL T DEVEL ASS, #66 ; 
33 12 00022 BNEQ ie ; 
FB A2 OF 00024 PUSHAB INPUT_EFN + 4654 
63 9 FB 00027 CALLS #1, LIBSGET_EF : 
05 0 £8 000A L8S —«INPUT_EF_STATUS, 1$ + 4656 
50 DD 00020 PUSHL INPUT~EF~STATUS : 
64 01 FB 0002F CALLS #1, LYBSSTOP ; 
FC «OA2 OOF 00 : 1$: PUSHAB OUTPUT _EFN : 4658 
63 9} FB 000 CALLS #1, LIBSGET_EF 3 
05 0 E8 00038 LBS  OUTPUT_EF_STATUS, 2$ + 4660 
50 DD 00038 PUSHL OUTPUT~EF “STAT : 
64 01 FB 0003D CALLS #1, LIB$STOP : 
FC A2 DD 0049 2$: PUSHL OUTPUT_EFN : 4662 
000000006 00 01 FB 0004 CALLS #1, SYSSSETEF F 
6 01 DO O0046A MOVL #1, HAVE_EFNS + 4663 
0 62 E8 00040 BLBS - HAVE_EFNS, 3$ + 4664 
000000006 00 00 FB 90050 CALLS #0, EDTSSINTER_ERR : 
04 00057 3s: ET + 4665 


; Routine Size: 88 bytes, Routine Base: _EDTSCODE + 169C¢ 


; 3845 4666 1 


Poe ot ot ot ot ot ot ot ot ot ot ot ot ot enna 


a —~—_—_ _-~ 


5 
EDTS1OMOD EDTSIOMOD = 1/0 for VAX/VMS ise -1984 0 :3 X-11 s-32 V Page 121 EDT! 
$4000 EDTSSTI_LEAVECHM = leave change mode 14- att 03: 33:79 bis SK$V nen TER: cto 1 SRCS1OMOD. B32;1 . 38) | v6: 
; 7 $667 } ZSBTTL ‘EDTSSTI_LEAVECHM = Leave change mode' | 
3 § 46 1 GLOBAL ROUTINE EDTSSTI_LEAVECHM ! Leave change mode 
3 0 4670 1 : NOVALUE = 
; 3851 4671 1 
: £26 4672 1 !+¢ 
3 Se 4673 1 | FUNCTIONAL DESCRIPTION: 
3 ee 4674 1: 
; 3855 4675 1! Leave change mode. 
; 3856 467 1! 
; 3857 467 1 ! FORMAL PARAMETERS: | 
; 3858 4678 1! 
; 3859 4679 1! NONE 
; 3860 4680 1! 
; 3861 4681 1 ! IMPLICIT INPUTS: 
3 B6¢ ret .% 
: 386 4683 1 | HAVE_EFNS | 
: 3864 4684 1! INPUT_EFN 
; 3865 4685 1! OU; PUT_EFN 
; 3866 4686 1! | 
; 3867 4687 1 ! IMPLICIT OUTPUTS: 
; 3868 4688 1! 
; 3869 4689 1! HAVE_EFNS | 
; tare 4690 1! 
; 3871 4691 1 ! ROUTINE VALUE: 
3 $676 4692 1! 
; 387 469 1 3 NONE 
3; 3874 4694 1! 
: 3875 4695 1 i SIDE EFFECTS: | 
; 3876 4696 1! 
: 3877 4697 1! NONE 
; 3878 4698 1! 
: 3879 4699 1 i-= 
: 3880 47 1 
; 3881 4701 2 BEGIN 
; ase 4702 2 
:; 388 47035 2 CAL 
3; 3884 706 § FREE_INPUT_STATUS 
> 3885 4705 FREEOUTPUT_ STATUS; 
; 3886 706 
3; 3887 4707 '¢ 
; 3888 708 i If we don't have the event flags, do nothing. 
3; 3889 4709 ie 
3; 3890 471¢ 
: 44 ort IF ( NOT .HAVE_EFNS) THEN RETURN; 
; 389 tag ASSERT (SWAITFR (EFN = .OUTPUT_EFN 
3 B08 erie FREE_INPUT_STATUS = LIBSFREE_EF CINPUT _EFN); 
: +54 orig IF ( NOT .FREE_INPUT_STATUS) THEN SIGNAL_STOP (.FREE_INPUT_STATUS); 
: 1943 $78 FREE_OUTPUT_STATUS = LIBSFREE_EF (OUTPUT_EFN); 
§ bis o7 ’ IF ( NOT .FREE_OUTPUT_STATUS) THEN SIGNAL_STOP (.FREE_OUTPUT_STATUS); 
: His 47 ; HAVE _E— = 0; 
; 390 47 ASSERT. NOT -HAVE_EFNS); 


5 
EDTSIOMOD = 1/0 for VAX/VMS 1b-se0-1 


000000006 


1$: PUSHAB 


Vit WW SWS u 


FC 


oo Oo Of BOO WwuNevu™ 
wes Ww 


o 
uw 


03 
63 


ODAKOMO PS OWUW1O FP OWUO FP OMOOO 
Onn C0] "O00 | VO0— NN MOOO 
OMMIONOMMNONOM OM T"OMOOOOW 
FWoOLwvo ow "Wl OoOw "Wowo ommmmna 
COOCCOCOCOCOOCOOOOCOOOOCOOOOOOoOoOOo 
loleleleleleleleleolelolelolelel ele el alelelolol =) 


f 
4 
B 
E 
1 
7 
¢ 
F 2$: PUSHAB 
3 
8 
A 
D 
F 
5 


; Routine Size: 86 bytes, Routine Base: _EDTSCODE + 16F4 


; 3905 4725 1 
; 3906 4726 1 !<BLF/PAGE> 


EDTS 4 :3 VAX=11 Bliss-32 V4.0-7 
vO4=000- EDTSSTI_LEAVECHM = leave change mode 14-Sep-1 1982 93: 33:78 DISKSVMSMASTER:CEDT. SRC 10MOD .B32; 1 
; 3904 4724 1 END; ! of routine EDTSS$TI_LEAVECHM 


EDTSS$TI_LEAVECHM, Save R2,R3.R4,R5 
LIBSSTOP, R5 
LIBSFREE_EF, R4 
EDTSSINTER_ERR, R3 
HAVE_EFNS, R2 
HAVE-EFNS. 4$ 
OUTPOT_EFN 

#1, SYSSWAITFR 

RO, 1$ 

#0, EDTSSINTER_ERR 
INPUT_EFN 

#1, LIBSFRE 

FREE_INPUT “STATUS. 2$ 
FREE INPUT STAT 

#1, CIBSSTOP 
OUTPUT_EFN 

#i, LIBSFREE_EF 
FREECOUTPUT. STATUS, 3$ 
FREE OUTPUT STATUS 
#1, CIBSSTOP 

HAVE -EFNS 

HAVE -E 


#0, EDTSSinteR. ERR 


rae tg 


4669. 


EOT! 
v04: 


EDTS 
EDTSSTI_L 
908 4727 1 EN 
909 47 1 
910 47 OE 
Name 
-EDTSDATA 
“EDTSCODE 
File 
-$255$DUA28: CEDT.SRCJEDT.L3 
“$255$DUA28: CEDT.SRCIPSECTS 
“$255$DUA28: SYSLIBJSTARLET 


for VAX/VMS 
= leave change mode 


PSECT SUMMARY 
Bytes 


e868 NOVEC, WRT, 
962 NOVEC,NOWRT, RD, 


Library Statistics 


poems Symbols 

Total Loaded 
1 377 11 
L3s: 1 
L32;1 9776 199 


COMMAND QUALIFIERS 


dD 5 


16-Se “13 . 9 
1a-8 p~ 


35:33 
2:23:19 


! of module EDTSIOMOD 


-EXTRN LIBSSTOP 


Attributes 


RD ,NOEXE,NOSHR, 
EXE, SHR, 


Percent 


56 
2 


LCL, REL, CON, 4b Seg htt f 
LCL, REL, CON, PIC,ALIGN(2) 
Pages Processing 
Mapped Time 
40 00:00.2 
7 00:00.1 
581 00:04.0 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER:CEDT. 


SRC310MOD.B32; 1 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$: 10MOD/OBJ=0BJ$:I1OMOD MSRC$: 1OMOD.B32/UPDATE=(ENHS$: IOMOD) 


Etse: 

un Time 04:20.8 
Sreoaet ttees 05:35.4 
Lines/CPU Min: 1087 


Lexemes/CPU-Min: 17411 
ry Used: 388 popes 
Compication Comple 


5784 code + 3018 data bytes 


Page 123 
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0134 AH-BT13A-SE IG. PMENT CORPORATION 
V135 vax7vMS v4.0 AND PROPRIETARY 


G 
N 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


ss 
I 


IGI 
ONF 


D 
C 


0135 


A 
D 


